From: Paul Thomas <paulthomas2@wanadoo.fr>
Date: Tue, 1 Feb 2005 09:06:22 +0000 (+0100)
Subject: re PR libfortran/19363 (List directed write of Infinity and NaN has regressed)
X-Git-Tag: releases/gcc-4.0.0~1138
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e88334a68f98bc5ca30180787f9c67512b568ab7;p=thirdparty%2Fgcc.git

re PR libfortran/19363 (List directed write of Infinity and NaN has regressed)

2005-02-01  Paul Thomas <paulthomas2@wanadoo.fr>

	PR libgfortran/19363
	PR libgfortran/19691
	* libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin.

From-SVN: r94530
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d0aabea76815..e932ed1bf55d 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-02-01  Paul Thomas <paulthomas2@wanadoo.fr>
+
+	PR libgfortran/19363
+	PR libgfortran/19691
+	* libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin.
+
 2005-01-30  Bud Davis  <bdavis@gfortran.org>
 
 	PR fortran/19647
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h
index dfa2e409f4b6..7dd6993809f0 100644
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -171,9 +171,14 @@ typedef off_t gfc_offset;
 
 /* The isfinite macro is only available with C99, but some non-C99
    systems still provide fpclassify, and there is a `finite' function
-   in BSD.  When isfinite is not available, try to use one of the
+   in BSD.
+
+   Also, isfinite is broken on Cygwin.
+
+   When isfinite is not available, try to use one of the
    alternatives, or bail out.  */
-#if !defined(isfinite)
+#if (!defined(isfinite) || defined(__CYGWIN__))
+#undef isfinite
 static inline int
 isfinite (double x)
 {