gcc/testsuite/gfortran.dg/endfile.f

   1 ! { dg-do run { target fd_truncate } }
   2 ! PR25550 file data corrupted after reading end of file.
   3 ! Derived from example given in PR from Dale Ranta.
   4 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5       integer data
   6       data=-1
   7       open(unit=11,status='scratch',form='unformatted')
   8       write(11)data
   9       read(11,end=1000 )data
  10       call abort()
  11  1000 continue
  12       rewind (11)
  13       read(11)data
  14  1001 continue
  15       if(data.ne.-1) call abort
  16       end
  17
  18