From 36402bb1864531f22acc9c3ef2403e1d3cddfc65 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 3 Dec 2012 17:16:28 +0100 Subject: strtod_l.c (___STRTOF_INTERNAL): Fix exponent reading. 2012-12-03 Tobias Burnus * strtod/strtod_l.c (___STRTOF_INTERNAL): Fix exponent reading. 2012-12-03 Tobias Burnus * gfortran.dg/quad_3.f90: New. From-SVN: r194100 --- libquadmath/ChangeLog | 5 +++++ libquadmath/strtod/strtod_l.c | 3 +++ 2 files changed, 8 insertions(+) (limited to 'libquadmath') diff --git a/libquadmath/ChangeLog b/libquadmath/ChangeLog index 8b052dc..867ab48 100644 --- a/libquadmath/ChangeLog +++ b/libquadmath/ChangeLog @@ -1,3 +1,8 @@ +2012-12-03 Tobias Burnus + + * strtod/strtod_l.c (___STRTOF_INTERNAL): Fix exponent + reading. + 2012-11-25 Tobias Burnus PR libquadmath/55462 diff --git a/libquadmath/strtod/strtod_l.c b/libquadmath/strtod/strtod_l.c index cd0c1f2..d1845a8 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')); -- cgit v1.1