| ! { 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 | |