read_eof.f90\execute\gfortran.fortran-torture\testsuite\gcc - delta/gcc.git - gcc.gnu.org: git/gcc.git

index : delta/gcc.git

gcc.gnu.org: git/gcc.git

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.fortran-torture/execute/read_eof.f90

blob: f472e9b444badcc1361f5514fcd1e51efafc214d (plain)

! PR 13919, segfault when file is empty
      open(unit=8,status='scratch')
      read(8,*,end=1)i
      STOP 1
1     continue
      end