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