gcc/testsuite/gfortran.dg/eof_2.f90

   1 ! { dg-do run }
   2 ! Check that end= and iostat= specifiers are honoured when both are used
   3 program eof_2
   4   integer ierr, i
   5
   6   open (11, status="SCRATCH")
   7   ierr = 0
   8   read (11, *, end=10, iostat=ierr) i
   9   call abort
  10 10 continue
  11   if (ierr .ge. 0) call abort
  12 end program
  13