diff options
| author | Eric Botcazou <ebotcazou@libertysurf.fr> | 2005-02-21 22:39:33 +0100 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2005-02-21 21:39:33 +0000 |
| commit | 74421469393fd0fef8ac928150140f0ac64cbaa9 (patch) | |
| tree | d4a8c1881509a617ee87f2eb020a5f0f06bf2713 /libgfortran | |
| parent | 10e7039248ce99bf0fcfb7d1d248785ad5d1788d (diff) | |
| download | gcc-74421469393fd0fef8ac928150140f0ac64cbaa9.zip gcc-74421469393fd0fef8ac928150140f0ac64cbaa9.tar.gz gcc-74421469393fd0fef8ac928150140f0ac64cbaa9.tar.bz2 | |
re PR libfortran/19302 (intrinsic_nearest.f90 fails)
PR libfortran/19302
* intrinsics/c99_functions.c (nextafterf): Special-case infinite
numbers.
From-SVN: r95353
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/c99_functions.c | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index de81b00..9c0561b 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-02-21 Eric Botcazou <ebotcazou@libertysurf.fr> + + PR libfortran/19302 + * intrinsics/c99_functions.c (nextafterf): Special-case infinite + numbers. + 2005-02-21 Steven G. Kargl <kargls@comcast.net> * io/write.c (output_float): Typo in error meesage. diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index 7dd9591..f7dc977 100644 --- a/libgfortran/intrinsics/c99_functions.c +++ b/libgfortran/intrinsics/c99_functions.c @@ -218,6 +218,8 @@ nextafterf(float x, float y) return x + y; if (x == y) return x; + if (!isfinite (x)) + return x > 0 ? __FLT_MAX__ : - __FLT_MAX__; /* absx = fabsf (x); */ absx = (x < 0.0) ? -x : x; |