mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
18 lines
211 B
ObjectPascal
18 lines
211 B
ObjectPascal
{$mode objfpc}
|
|
PROGRAM Test;
|
|
USES SysUtils;
|
|
|
|
VAR
|
|
t : Text;
|
|
|
|
BEGIN
|
|
Assign(t, 'blah.txt');
|
|
TRY
|
|
Close(t);
|
|
EXCEPT
|
|
ON e: EInOutError DO
|
|
if (e.ErrorCode <> 103) then
|
|
halt(1);
|
|
END;
|
|
END.
|