diff options
| author | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-01 13:40:52 +0000 |
|---|---|---|
| committer | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-01 13:40:52 +0000 |
| commit | cfe95071237e3e03a86811a4bd92575623ec3f28 (patch) | |
| tree | 3d27d1a3a22ca9d52450ebda4c122a3cb9833e12 /libgfortran | |
| parent | 72dfc8a5eb647f579ffbd5ce8808602fb92b839e (diff) | |
| download | ppe42-gcc-cfe95071237e3e03a86811a4bd92575623ec3f28.tar.gz ppe42-gcc-cfe95071237e3e03a86811a4bd92575623ec3f28.zip | |
* io/write.c (write_float): Use the slightly more portable isnan
in preference to isinf.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85407 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 2 |
2 files changed, 6 insertions, 1 deletions
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)) |
