mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-27 17:34:19 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/19302 (intrinsic_nearest.f90 fails)

Browse Source 
PR libfortran/19302
	* intrinsics/c99_functions.c (nextafterf): Special-case infinite
	numbers.

From-SVN: r95353
This commit is contained in:
Eric Botcazou 2005-02-21 22:39:33 +01:00 committed by Eric Botcazou
parent 10e7039248
commit 7442146939
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -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.

2
libgfortran/intrinsics/c99_functions.c
View File

@ -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;