| ! { dg-do run } |
| ! PR43517 Spurious EOF condition when namelist read follows formatted read |
| ! Test case from the problem reporter - Michael Richmond |
| program main |
| namelist /name/ j |
| open (10,status='scratch',form='formatted') |
| write(10,'(a)') "999999" |
| write(10,'(a)') " $name" |
| write(10,'(a)') " j=73," |
| write(10,'(a)') " /" |
| rewind(10) |
| i = 54321 |
| idum = 6789 |
| read (10,'(2i5,4x)') i, idum ! Trailing 4x was setting EOF condition |
| if (i /= 99999 .and. idum /= 9) STOP 1 |
| j = 12345 |
| read (10,name) ! EOF condition tripped here. |
| if (j /= 73) STOP 2 |
| end program main |
| |