Dead
[official-gcc.git] / gomp-20050608-branch / gcc / testsuite / gfortran.dg / endfile_2.f90
blob7f366f1e0336f0a6b2a81a6b00639547d42d139b
1 ! { dg-do run }
2 ! pr18778 abort on endfile without opening unit
3 program test
4 implicit none
5 integer i
6 endfile(8)
7 rewind(8)
8 read(8,end=0023)i
9 call abort ! should never get here
10 stop
11 0023 continue
12 end