From: John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
Date: Mon, 21 Jan 2008 18:13:04 +0000 (+0000)
Subject: re PR libfortran/34699 (FAIL: gfortran.fortran-torture/execute/intrinsic_set_exponent... 
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0e0599767bb79a1653e98897a44968d7bc1f5116;p=thirdparty%2Fgcc.git

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

	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: r131699
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index a71d215b8ce7..b60bfe33484c 100644
--- 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-05-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libfortran/31964
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index 3eabd0dc5a7e..40e0ba763465 100644
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -226,7 +226,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