diff options
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/write.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 28bbd1b..fd4665b 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -654,7 +654,7 @@ write_float (fnode *f, const char *source, int len) if (f->format != FMT_B && f->format != FMT_O && f->format != FMT_Z) { - res = finite (n); + res = isfinite (n); if (res == 0) { nb = f->u.real.w; |