2 ! PR43517 Spurious EOF condition when namelist read follows formatted read
3 ! Test case from the problem reporter - Michael Richmond
6 open (10,status='scratch',form='formatted')
7 write(10,'(a)') "999999"
8 write(10,'(a)') " $name"
9 write(10,'(a)') " j=73,"
14 read (10,'(2i5,4x)') i, idum ! Trailing 4x was setting EOF condition
15 if (i /= 99999 .and. idum /= 9) call abort
17 read (10,name) ! EOF condition tripped here.
18 if (j /= 73) call abort