coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / eof_2.f90
blobb7c2c9172c951934bc716971603ab65a6aacc545
1 ! { dg-do run }
2 ! Check that end= and iostat= specifiers are honoured when both are used
3 program eof_2
4 integer ierr, i
6 open (11, status="SCRATCH")
7 ierr = 0
8 read (11, *, end=10, iostat=ierr) i
9 call abort
10 10 continue
11 if (ierr .ge. 0) call abort
12 end program