diff options
| author | sje <sje@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-27 21:12:52 +0000 |
|---|---|---|
| committer | sje <sje@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-27 21:12:52 +0000 |
| commit | 839904a0e3a1859cdfeb5ff23e5263c332f347fa (patch) | |
| tree | b153488273b3833bfdf44f1f0c3ac72e033b31c2 /libgfortran/io | |
| parent | c0edfcc4dff63bcbbfdb726a7e1f36fd42c53c3c (diff) | |
| download | gcc-839904a0e3a1859cdfeb5ff23e5263c332f347fa.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104710 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/write.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 04361345ffb..c1bf78eca3e 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) { |