diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-03 16:16:28 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-03 16:16:28 +0000 |
| commit | 9e538e2d4fd82505004d9c4ca057ec0ad050028e (patch) | |
| tree | 142725dae2b312871de2d12c5d6498e782919b6a /libquadmath | |
| parent | 79f4a793e9c9e9c3ef7056c3d8cbec2024051322 (diff) | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194100 138bc75d-0d04-0410-961f-82ee72b054a4
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')); |