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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 8a0ed507496e28c4f7cb640b7f6c1500f19972b9..31423f4a1591ef5b99eb4e827fc6fa5c2dab6489 100644 (file)
--- 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-11-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/46373

diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index d4ed17fc1b00690bd49a18604e1bdad914e1a05f..63602bd8a56ef011abde70350dcd8d476679e278 100644 (file)
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -538,7 +538,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