2 ! pr18364 endfile does not truncate file.
9 ! detect file has only 10 records
12 open(unit=10,file='test.dat',access='sequential',status='replace')
22 open(unit=10,file='test.dat',access='sequential',status='old')
24 read (10,'(I4)',end=99) j
26 ! should never get here
28 99 continue ! end of file
29 if (j.ne.10) call abort
30 close(10,status='delete')