OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2011-02-22 13:43:38 +01:00 committed by Tobias Burnus
parent 25b272bb14
commit 7f72d569c3
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -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

2
libgfortran/intrinsics/c99_functions.c
View File

@ -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