2 ! { dg-options "-std=legacy" }
5 ! The IO library has an algorithm that involved repeated multiplication by 10,
6 ! resulting in introducing large cumulative floating point errors.
10 s
= "-.18774312893273 "
11 read(unit
=s
, fmt
='(g20.14)') d
12 if (d
+ 0.18774312893273d0 .gt
. 1d-13) STOP 1