From: Bud Davis <bdavis9659@comcast.net>
Date: Mon, 14 Jun 2004 17:27:20 +0000 (+0000)
Subject: re PR libfortran/15292 (libgfortran depends on c99 functionality round and roundf)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bc20e36d1659487e7975ddd1fb18e53867149e8f;p=gcc.git

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 05024399d54..f0e7d8d7483 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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.
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index 932838780b8..69b6c3e2e96 100644
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -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) 
     {