gcc/testsuite/gfortran.dg/list_read_12.f90

   1 ! { dg-do run }
   2 ! PR58324 Bogus end of file condition
   3 integer :: i, ios
   4 open(99, access='stream', form='unformatted')
   5 write(99) "5 a"
   6 close(99)
   7
   8 open(99, access='sequential', form='formatted')
   9 read(99, *, iostat=ios) i
  10 close(99, status="delete")
  11 if (ios /= 0) call abort
  12 end