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