diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-21 21:39:33 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-21 21:39:33 +0000 |
| commit | 65ce19bc5f34c6c79cddf817741cf797a3fcb3c5 (patch) | |
| tree | d4a8c1881509a617ee87f2eb020a5f0f06bf2713 /libgfortran/intrinsics | |
| parent | 8852c74501b457820e4e2e678f3aba4ddabace3c (diff) | |
| download | gcc-65ce19bc5f34c6c79cddf817741cf797a3fcb3c5.tar.gz | |
PR libfortran/19302
* intrinsics/c99_functions.c (nextafterf): Special-case infinite
numbers.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95353 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/c99_functions.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index 7dd95918dcd..f7dc9777dd8 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; |