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