Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.dg / eor_1.f90
blobdd3b5e98f703426ee50c93114089c5cc60fe944f
1 ! { dg-do run }
2 ! PR 19451: The test for advance='NO' with eor used to be reversed.
3 program main
4 character*2 c
5 open(12, status='SCRATCH')
6 write(12, '(A)') '123', '456'
7 rewind(12)
8 read(12, '(A2)', advance='NO', eor=100) c
9 100 continue
10 end program main