RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / eor_1.f90
blobcd0004bb2a702e8e326bc5d9ed027e9a54bb0206
1 ! { dg-do run }
2 ! { dg-options "-std=legacy" }
4 ! PR 19451: The test for advance='NO' with eor used to be reversed.
5 program 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
11 100 continue
12 end program main