summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90
blob: b4bc8239b23172b720d395c382df4266b48c2a39 (plain)
1
2
3
4
5
6
! PR 13919, segfault when file is empty
      open(unit=8,status='scratch')
      read(8,*,end=1)i
      call abort
1     continue
      end