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      STOP 1
6123   continue
7      end
8