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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_read.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { 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`