Test suite results for test file tbs/tb0312.pp

Test run data :

Test file "tbs/tb0312.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1015714.

Source:

{ show a problem with IOCHECK !!
  inside reset(file)
  we call reset(file,longint)
  but we also emit a call to iocheck after and this is wrong !!  PM }

program getret;

 uses dos;

  var
      ppfile : file;

begin
       assign(ppfile,'this_file_probably_does_not_exist&~"#');
{$I-}
       reset(ppfile,1);
       if ioresult=0 then
         begin
{$I+}
            close(ppfile);
         end
       else
         writeln('the file does not exist') ;
{$I-}
       reset(ppfile);
       if ioresult=0 then
         begin
{$I+}
            close(ppfile);
         end
       else
         writeln('the file does not exist') ;
end.

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