gcc/testsuite/gfortran.dg/eof_3.f90

   1 ! { dg-do run }
   2 ! PR40714 A read hitting EOF should leave the unit structure in a correct state
   3 program test
   4 open(unit=32,status="scratch",access="sequential",form="unformatted")
   5 read(32,end=100)
   6 100 continue
   7 write (32)
   8 end program test