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/] [read_float_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR18218`	`! PR18218`
`! The IO library has an algorithm that involved repeated multiplication by 10,`	`! The IO library has an algorithm that involved repeated multiplication by 10,`
`! resulting in introducing large cumulative floating point errors.`	`! resulting in introducing large cumulative floating point errors.`
`program foo`	`program foo`
`character*20 s`	`character*20 s`
`real(kind=8) d`	`real(kind=8) d`
`s = "-.18774312893273 "`	`s = "-.18774312893273 "`
`read(unit=s, fmt='(g20.14)') d`	`read(unit=s, fmt='(g20.14)') d`
`if (d + 0.18774312893273d0 .gt. 1d-13) call abort`	`if (d + 0.18774312893273d0 .gt. 1d-13) call abort`
`end program`	`end program`