|
! { dg-do run }
|
|
! Check that end= and iostat= specifiers are honoured when both are used
|
|
program eof_2
|
|
integer ierr, i
|
|
|
|
open (11, status="SCRATCH")
|
|
ierr = 0
|
|
read (11, *, end=10, iostat=ierr) i
|
|
call abort
|
|
10 continue
|
|
if (ierr .ge. 0) call abort
|
|
end program
|
|
|