1! { dg-do run } 2! PR43517 Spurious EOF condition when namelist read follows formatted read 3! Test case from the problem reporter - Michael Richmond 4program main 5 namelist /name/ j 6 open (10,status='scratch',form='formatted') 7 write(10,'(a)') "999999" 8 write(10,'(a)') " $name" 9 write(10,'(a)') " j=73," 10 write(10,'(a)') " /" 11 rewind(10) 12 i = 54321 13 idum = 6789 14 read (10,'(2i5,4x)') i, idum ! Trailing 4x was setting EOF condition 15 if (i /= 99999 .and. idum /= 9) call abort 16 j = 12345 17 read (10,name) ! EOF condition tripped here. 18 if (j /= 73) call abort 19end program main 20 21