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/] [eor_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-std=legacy" }`	`! { dg-options "-std=legacy" }`
`!`	`!`
`! PR 19451: The test for advance='NO' with eor used to be reversed.`	`! PR 19451: The test for advance='NO' with eor used to be reversed.`
`program main`	`program main`
`character*2 c`	`character*2 c`
`open(12, status='SCRATCH')`	`open(12, status='SCRATCH')`
`write(12, '(A)') '123', '456'`	`write(12, '(A)') '123', '456'`
`rewind(12)`	`rewind(12)`
`read(12, '(A2)', advance='NO', eor=100) c`	`read(12, '(A2)', advance='NO', eor=100) c`
`100 continue`	`100 continue`
`end program main`	`end program main`