Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/read_float_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 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 | |
131 | 12 if (d + 0.18774312893273d0 .gt. 1d-13) STOP 1 |
111 | 13 end program |
14 |