view gcc/testsuite/gfortran.dg/read_empty_file.f @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 84e7813d76e9
children
line wrap: on
line source

! { 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
      STOP 1
123   continue
      end