OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/57496 (I/O: WRITE(*,*) HUGE(0._10) gives SIGFPE with -ffpe-trap=overflow) 

PR libfortran/57496
	* io/write_float.def: Use built-in type-generic functions defined
	by libgfortran.h for isfinite, isnan, and signbit.

From-SVN: r227136
This commit is contained in:
Francois-Xavier Coudert 2015-08-24 16:31:47 +00:00 committed by François-Xavier Coudert
parent 9f7ba2088e
commit 5cdf54b765
2 changed files with 10 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2015-08-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/57496
* io/write_float.def: Use built-in type-generic functions defined
by libgfortran.h for isfinite, isnan, and signbit.
2015-08-23 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/54572

35
libgfortran/io/write_float.def
View File

@ -958,33 +958,6 @@ __qmath_(quadmath_snprintf) (buffer, size, "%+-#.*Qf", \
#endif
#if defined(GFC_REAL_16_IS_FLOAT128)
#define ISFINITE2Q(val) finiteq(val)
#endif
#define ISFINITE2(val) isfinite(val)
#define ISFINITE2L(val) isfinite(val)
#define ISFINITE(suff,val) TOKENPASTE(ISFINITE2,suff)(val)
#if defined(GFC_REAL_16_IS_FLOAT128)
#define SIGNBIT2Q(val) signbitq(val)
#endif
#define SIGNBIT2(val) signbit(val)
#define SIGNBIT2L(val) signbit(val)
#define SIGNBIT(suff,val) TOKENPASTE(SIGNBIT2,suff)(val)
#if defined(GFC_REAL_16_IS_FLOAT128)
#define ISNAN2Q(val) isnanq(val)
#endif
#define ISNAN2(val) isnan(val)
#define ISNAN2L(val) isnan(val)
#define ISNAN(suff,val) TOKENPASTE(ISNAN2,suff)(val)
/* Generate corresponding I/O format for FMT_G and output.
The rules to translate FMT_G to FMT_E or FMT_F from DEC fortran
@ -1164,7 +1137,7 @@ OUTPUT_FLOAT_FMT_G(16,L)
{\
volatile GFC_REAL_ ## x tmp, one = 1.0;\
tmp = * (GFC_REAL_ ## x *)source;\
if (ISFINITE (y,tmp))\
if (isfinite (tmp))\
{\
nprinted = DTOA(y,0,tmp);\
int e = atoi (&buffer[4]);\
@ -1235,10 +1208,10 @@ determine_en_precision (st_parameter_dt *dtp, const fnode *f,
{\
GFC_REAL_ ## x tmp;\
tmp = * (GFC_REAL_ ## x *)source;\
sign_bit = SIGNBIT (y,tmp);\
if (!ISFINITE (y,tmp))\
sign_bit = signbit (tmp);\
if (!isfinite (tmp))\
{ \
write_infnan (dtp, f, ISNAN (y,tmp), sign_bit);\
write_infnan (dtp, f, isnan (tmp), sign_bit);\
return;\
}\
tmp = sign_bit ? -tmp : tmp;\