1! { dg-do run } 2! { dg-options "-std=legacy" } 3! 4! PR 19451: The test for advance='NO' with eor used to be reversed. 5program main 6 character*2 c 7 open(12, status='SCRATCH') 8 write(12, '(A)') '123', '456' 9 rewind(12) 10 read(12, '(A2)', advance='NO', eor=100) c 11100 continue 12end program main 13