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

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! pr18398, missing data on sequential formatted reads`	`! pr18398, missing data on sequential formatted reads`
`! test contributed by Thomas.Koenig@online.de`	`! test contributed by Thomas.Koenig@online.de`
`open(7,status='scratch')`	`open(7,status='scratch')`
`write (7,'(F12.5)') 1.0, 2.0, 3.0`	`write (7,'(F12.5)') 1.0, 2.0, 3.0`
`rewind(7)`	`rewind(7)`
`read(7,'(F15.5)') a,b`	`read(7,'(F15.5)') a,b`
`! note the read format is wider than the write`	`! note the read format is wider than the write`
`if (abs(a-1.0) .gt. 1e-5) call abort`	`if (abs(a-1.0) .gt. 1e-5) call abort`
`if (abs(b-2.0) .gt. 1e-5) call abort`	`if (abs(b-2.0) .gt. 1e-5) call abort`
`end`	`end`