gcc/testsuite/gfortran.dg/read_empty_file.f

   1 ! { dg-do run }
   2 ! PR43320 Missing EOF on read from empty file.
   3       open(8,status='scratch',form='formatted')  ! Create empty file
   4       read(8,'(a80)', end=123)  ! Reading from an empty file should be an EOF
   5       call abort
   6 123   continue
   7       end