From 1c4bc9caa31de74c238dda40f291ed4363d973ac Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 22 Feb 2011 13:37:12 +0100 Subject: 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: r170396 --- libgfortran/ChangeLog | 7 +++++++ libgfortran/intrinsics/c99_functions.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index d53329d..98a1b3f 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. + 2011-02-19 Jerry DeLisle PR libgfortran/47567 diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index 8a9c2f1..9ba5544 100644 --- a/libgfortran/intrinsics/c99_functions.c +++ b/libgfortran/intrinsics/c99_functions.c @@ -600,7 +600,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 -- cgit v1.1