URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [eof_3.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! PR40714 A read hitting EOF should leave the unit structure in a correct state`	`! PR40714 A read hitting EOF should leave the unit structure in a correct state`
`program test`	`program test`
`open(unit=32,status="scratch",access="sequential",form="unformatted")`	`open(unit=32,status="scratch",access="sequential",form="unformatted")`
`read(32,end=100)`	`read(32,end=100)`
`100 continue`	`100 continue`
`write (32)`	`write (32)`
`end program test`	`end program test`