1! { dg-do run }
2! Check that end= and iostat= specifiers are honoured when both are used
3program eof_2
4 integer ierr, i
5
6 open (11, status="SCRATCH")
7 ierr = 0
8 read (11, *, end=10, iostat=ierr) i
9 call abort
1010 continue
11 if (ierr .ge. 0) call abort
12end program
13
14