From 023d776a1124e7cdcc9bb51716f1aed6b0ff3735 Mon Sep 17 00:00:00 2001
From: Roger Sayle <roger@eyesopen.com>
Date: Sun, 1 Aug 2004 13:40:52 +0000
Subject: [PATCH] write.c (write_float): Use the slightly more portable isnan
 in preference to isinf.

	* io/write.c (write_float): Use the slightly more portable isnan
	in preference to isinf.

From-SVN: r85407
---
 libgfortran/ChangeLog  | 5 +++++
 libgfortran/io/write.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3168f4e1b70..de627aaaa03 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-01  Roger Sayle  <roger@eyesopen.com>
+
+	* io/write.c (write_float): Use the slightly more portable isnan
+	in preference to isinf.
+
 2004-07-18  Bud Davis  <bdavis9659@comcast.net>
 
 	* configure.ac: Add check for LFS support. 
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 749a34a4834..1af8537d751 100644
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -523,7 +523,7 @@ write_float (fnode *f, const char *source, int len)
          }
 
          memset(p, ' ', nb);
-         res = isinf (n); 
+         res = !isnan (n); 
          if (res != 0)
          {
             if (signbit(n))