diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-12-03 17:16:28 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-12-03 17:16:28 +0100 |
| commit | 36402bb1864531f22acc9c3ef2403e1d3cddfc65 (patch) | |
| tree | 142725dae2b312871de2d12c5d6498e782919b6a /libquadmath | |
| parent | 0ed3d24e395cb42ef1db6a73c60f69cca51238cc (diff) | |
strtod_l.c (___STRTOF_INTERNAL): Fix exponent reading.
2012-12-03 Tobias Burnus <burnus@net-b.de>
* strtod/strtod_l.c (___STRTOF_INTERNAL): Fix exponent
reading.
2012-12-03 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/quad_3.f90: New.
From-SVN: r194100
Diffstat (limited to 'libquadmath')
| -rw-r--r-- | libquadmath/ChangeLog | 5 | ||||
| -rw-r--r-- | libquadmath/strtod/strtod_l.c | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libquadmath/ChangeLog b/libquadmath/ChangeLog index 8b052dcf390..867ab48b989 100644 --- a/libquadmath/ChangeLog +++ b/libquadmath/ChangeLog @@ -1,3 +1,8 @@ +2012-12-03 Tobias Burnus <burnus@net-b.de> + + * strtod/strtod_l.c (___STRTOF_INTERNAL): Fix exponent + reading. + 2012-11-25 Tobias Burnus <burnus@net-b.de> PR libquadmath/55462 diff --git a/libquadmath/strtod/strtod_l.c b/libquadmath/strtod/strtod_l.c index cd0c1f2da25..d1845a8039c 100644 --- a/libquadmath/strtod/strtod_l.c +++ b/libquadmath/strtod/strtod_l.c @@ -1005,6 +1005,9 @@ ____STRTOF_INTERNAL (nptr, endptr, group) /* NOTREACHED */ } + exponent *= 10; + exponent += c - L_('0'); + c = *++cp; } while (c >= L_('0') && c <= L_('9')); |