summaryrefslogtreecommitdiff
path: root/libquadmath
diff options
context:
space:
mode:
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2012-12-03 16:16:28 +0000
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2012-12-03 16:16:28 +0000
commit9e538e2d4fd82505004d9c4ca057ec0ad050028e (patch)
tree142725dae2b312871de2d12c5d6498e782919b6a /libquadmath
parent79f4a793e9c9e9c3ef7056c3d8cbec2024051322 (diff)
downloadgcc-9e538e2d4fd82505004d9c4ca057ec0ad050028e.tar.gz
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/ChangeLog5
-rw-r--r--libquadmath/strtod/strtod_l.c3
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'));