diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 4fc60ef80e5c..775efde21b47 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-12  Jakub Jelinek  <jakub@redhat.com>
+
+	PR other/64370
+	* sreal.c (sreal::to_double): Use ldexp instead of scalbnl.
+
 2015-01-12  Jeff Law  <law@redhat.com>
 
 	PR target/64461
diff --git a/gcc/sreal.c b/gcc/sreal.c
index 622fc2d2136e..94b75dd86604 100644
--- a/gcc/sreal.c
+++ b/gcc/sreal.c
@@ -122,7 +122,7 @@ sreal::to_double () const
 {
   double val = m_sig;
   if (m_exp)
-    val = scalbln (val, m_exp);
+    val = ldexp (val, m_exp);
   return val;
 }