From 023d776a1124e7cdcc9bb51716f1aed6b0ff3735 Mon Sep 17 00:00:00 2001 From: Roger Sayle 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 + + * io/write.c (write_float): Use the slightly more portable isnan + in preference to isinf. + 2004-07-18 Bud Davis * 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)) -- 2.30.2