mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
17 lines
335 B
Fortran
17 lines
335 B
Fortran
! { 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) STOP 1
|
|
end
|