mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-30 23:22:33 +02:00
13 lines
238 B
ObjectPascal
13 lines
238 B
ObjectPascal
|
|
var f:text;
|
|
i:integer;
|
|
begin
|
|
assign(f,'bug0224.txt');
|
|
reset(f);
|
|
{$I-}
|
|
readln(f,i); { you can't avoid run-time error generation }
|
|
{$I+}
|
|
if IOResult<>0 then writeln('error...')
|
|
else close(f);
|
|
end.
|