From 79ad59ec759019f6511e9602d1a8824452db4570 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 22 Feb 2011 13:41:54 +0100 Subject: [PATCH] re PR libfortran/47830 (errors in intrinsics/c99_functions.c) 2011-02-22 Tobias Burnus Kai-Uwe Eckhardt PR libfortran/47830 * intrinsics/c99_functions.c (roundl): Make C valid for HAVE_NEXTAFTERL. Co-Authored-By: Kai-Uwe Eckhardt From-SVN: r170397 --- libgfortran/ChangeLog | 7 +++++++ libgfortran/intrinsics/c99_functions.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + Kai-Uwe Eckhardt + + 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 -- 2.47.2