gcc/testsuite/gfortran.dg/read_x_eof.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do run }
! PR43265 No EOF condition if reading with '(x)' from an empty file
! Test case from the reporter.
program pr43265
implicit none
integer::i
open(23,status="scratch")
write(23,'(a)') "Line 1"
write(23,'(a)') "Line 2"
write(23,'(a)') "Line 3"
rewind(23)
do i=1,10
  read(23,'(1x)',end=12)
enddo
12 if (i.ne.4) call abort
end