summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/read_empty_file.f
blob: d4077481bda81950fe9b413765bf87b7e1110afc (plain)
1
2
3
4
5
6
7
! { dg-do run }
! PR43320 Missing EOF on read from empty file.
      open(8,status='scratch',form='formatted')  ! Create empty file
      read(8,'(a80)', end=123)  ! Reading from an empty file should be an EOF
      call abort
123   continue
      end