re PR libfortran/34699 (FAIL: gfortran.fortran-torture/execute/intrinsic_set_exponent...

	PR libfortran/34699
	Backport:
	2007-09-21  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>

	PR libfortran/26253
	* intrinsics/c99_functions.c (scalbn): Use ldexp if appopriate.

From-SVN: r131698

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d7ae2b4b8cda1c91ff06c04b627eb1218f1b8f54..b488d3ff7556e90f00521b0c20b87b4f5948b92e 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,12 @@
+2008-01-21  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+       PR libfortran/34699
+       Backport:
+       2007-09-21  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR libfortran/26253
+       * intrinsics/c99_functions.c (scalbn): Use ldexp if appopriate.
+
 2007-10-07  Release Manager
 
        * GCC 4.2.2 released.

diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index 765ed40aaec1a48a6389ab22bf93dff887c9c875..b805a22b63caa8398aa98e57b7dfe98ed647b104 100644 (file)
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -249,7 +249,11 @@ log10f(float x)
 double
 scalbn(double x, int y)
 {
+#if (FLT_RADIX == 2) && defined(HAVE_LDEXP)
+  return ldexp (x, y);
+#else
   return x * pow(FLT_RADIX, y);
+#endif
 }
 #endif