Return to pvs3.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

{TEST 6.6.5.2-2, CLASS=ERRORHANDLING}

{ This program causes an error to occur as eof(f) does
  not yield false prior to execution of a get on the file f.
  The error should be detected at compile-time or run-time. }

program t6p6p5p2d2(output);
var
   fyle : text;
begin
   rewrite(fyle);
   writeln(fyle,'ABC');
   reset(fyle);
   get(fyle);            { fyle^='A' }
   get(fyle);           { fyle^='B' }
   get(fyle);           { fyle^='C' }
   get(fyle);           { fyle^ undefined...eof is true }
   get(fyle);           { error since eof is true }
   writeln(' ERROR NOT DETECTED...6.6.5.2-2')
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.