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

re PR libfortran/15292 (libgfortran depends on c99 functionality round and roundf) 

2004-06-14  Bud Davis  <bdavis9659@comcast.net>

        PR gfortran/15292
        * intrinsics/c99_functions.c: Use fpclassify if it exists.

From-SVN: r83116
This commit is contained in:
Bud Davis 2004-06-14 17:27:20 +00:00 committed by Bud Davis
parent ce738b86f9
commit bc20e36d16
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-06-14 Bud Davis <bdavis9659@comcast.net>
PR gfortran/15292
* intrinsics/c99_functions.c: Use fpclassify if it exists.
2004-06-13 Paul Brook <paul@codesourcery.com>
* Makefile.am (gfor_helper_src): Add runtime/normalize.f90.

7
libgfortran/intrinsics/c99_functions.c
View File

@ -24,6 +24,8 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h"
/* Note that if HAVE_FPCLASSIFY is not defined, then NaN is not handled */
/* Algorithm by Steven G. Kargl. */
#ifndef HAVE_ROUND
@ -34,11 +36,12 @@ double
round(double x)
{
double t;
#ifdef HAVE_FPCLASSIFY
int i;
i = fpclassify(x);
if (i == FP_INFINITE || i == FP_NAN)
return (x);
#endif
if (x >= 0.0)
{
@ -65,11 +68,13 @@ float
roundf(float x)
{
float t;
#ifdef HAVE_FPCLASSIFY
int i;
i = fpclassify(x);
if (i == FP_INFINITE || i == FP_NAN)
return (x);
#endif
if (x >= 0.0)
{