From 118ea208fa6de41756b9d1cce052e0bd64c681c2 Mon Sep 17 00:00:00 2001 From: Steve Ellcey Date: Tue, 27 Sep 2005 21:12:52 +0000 Subject: re PR target/23552 (FAIL: gfortran.dg/large_real_kind_1.f90) PR target/23552 * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_ISFINITE): New. (LIBGFOR_CHECK_FOR_BROKEN_ISNAN): New. (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY): New. * configure.ac (LIBGFOR_CHECK_FOR_BROKEN_ISFINITE): Add use. (LIBGFOR_CHECK_FOR_BROKEN_ISNAN): Add use. (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY): Add use. * configure: Regenerate. * config.h.in: Regenerate. * libgfortan.h (isfinite): undef if broken, set if needed. (isnan): undef if broken, set if needed. (fpclassify): undef if broken, set if needed. * io/write.c: Remove TODO comment about working isfinite. * intrinsics/c99_functions.c (round): Use isfinite instead of fpclassify. * intrinsics/c99_functions.c (roundf): Ditto. From-SVN: r104710 --- libgfortran/io/write.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'libgfortran/io') diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 0436134..c1bf78e 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -821,9 +821,6 @@ write_float (fnode *f, const char *source, int len) if (f->format != FMT_B && f->format != FMT_O && f->format != FMT_Z) { - /* TODO: there are some systems where isfinite is not able to work - with long double variables. We should detect this case and - provide our own version for isfinite. */ res = isfinite (n); if (res == 0) { -- cgit v1.1