fpc/tests/tbs/tbs0224.pp

var f:text;
    i:integer;
begin
  assign(f,'bug0224.txt');
  rewrite(f);
  write(f,'     ');
  reset(f);
{$I-}
  readln(f,i);              { you can't avoid run-time error generation }
{$I+}
  if IOResult<>0 then
   writeln('error...');
{$I-}
  close(f);
  erase(f);
{$I+}
  if IOResult<>0 then;
end.