gcc/testsuite/gfortran.dg/read_float_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! PR18218
   5 ! The IO library has an algorithm that involved repeated multiplication by 10,
   6 ! resulting in introducing large cumulative floating point errors.
   7 program foo
   8   character*20 s
   9   real(kind=8) d
  10   s = "-.18774312893273    "
  11   read(unit=s, fmt='(g20.14)') d
  12   if (d + 0.18774312893273d0 .gt. 1d-13) STOP 1
  13 end program
  14