| ! { dg-do run } | |
| ! PR 19451: The test for advance='NO' with eor used to be reversed. | |
| program main | |
| character*2 c | |
| open(12, status='SCRATCH') | |
| write(12, '(A)') '123', '456' | |
| rewind(12) | |
| read(12, '(A2)', advance='NO', eor=100) c | |
| 100 continue | |
| end program main |