URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [eof_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! Check that end= and iostat= specifiers are honoured when both are used`	`! Check that end= and iostat= specifiers are honoured when both are used`
`program eof_2`	`program eof_2`
`integer ierr, i`	`integer ierr, i`

`open (11, status="SCRATCH")`	`open (11, status="SCRATCH")`
`ierr = 0`	`ierr = 0`
`read (11, *, end=10, iostat=ierr) i`	`read (11, *, end=10, iostat=ierr) i`
`call abort`	`call abort`
`10 continue`	`10 continue`
`if (ierr .ge. 0) call abort`	`if (ierr .ge. 0) call abort`
`end program`	`end program`