gcc/testsuite/gfortran.dg/endfile_2.f90

   1 ! { dg-do run }
   2 ! pr18778 abort on endfile without opening unit
   3       program test
   4       implicit none
   5       integer i
   6       endfile(8)
   7       rewind(8)
   8       read(8,end=0023)i
   9       call abort ! should never get here
  10       stop
  11  0023 continue
  12       close(8,status='delete')
  13       end