From: Tobias Burnus <burnus@net-b.de>
Date: Tue, 22 Feb 2011 12:41:54 +0000 (+0100)
Subject: re PR libfortran/47830 (errors in intrinsics/c99_functions.c)
X-Git-Tag: releases/gcc-4.5.3~210
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=79ad59ec759019f6511e9602d1a8824452db4570;p=thirdparty%2Fgcc.git

re PR libfortran/47830 (errors in intrinsics/c99_functions.c)

2011-02-22  Tobias Burnus  <burnus@net-b.de>
            Kai-Uwe Eckhardt  <kuehro@gmx.de>

        PR libfortran/47830
        * intrinsics/c99_functions.c (roundl): Make C valid for
        HAVE_NEXTAFTERL.


Co-Authored-By: Kai-Uwe Eckhardt <kuehro@gmx.de>

From-SVN: r170397
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index cfffe4e61840..ae5b6f7024d9 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+2011-02-22  Tobias Burnus  <burnus@net-b.de>
+	    Kai-Uwe Eckhardt  <kuehro@gmx.de>
+
+	PR libfortran/47830
+	* intrinsics/c99_functions.c (roundl): Make C valid for
+	HAVE_NEXTAFTERL.
+
 2010-12-16  Release Manager
 
 	* GCC 4.5.2 released.
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index 03bcbfedaa64..81c72205673e 100644
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -601,7 +601,7 @@ roundl (long double x)
   if (x > DBL_MAX || x < -DBL_MAX)
     {
 #ifdef HAVE_NEXTAFTERL
-      static long double prechalf = nexafterl (0.5L, LDBL_MAX);
+      long double prechalf = nextafterl (0.5L, LDBL_MAX);
 #else
       static long double prechalf = 0.5L;
 #endif