Test suite results for test file tbs/tb0190.pp

Test run data :

Test file "tbs/tb0190.pp" information:

t_id 425
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 947791.

Source:

{ Old file: tbs0224.pp }
{ I/O-Error generation in readln can't be switched off OK 0.99.11 (PFV) }


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.

Link to SVN view of tbs/tb0190.pp source.