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