procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

simplify.c (gfc_simplify_exponent): Fix exponent(tiny(x))

Browse source 
From-SVN: r97792
This commit is contained in:
Steven G. Kargl 2005-04-07 18:26:37 +00:00 • committed by Steven G. Kargl
parent 03359b57f4
commit 01ae893012
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
2005-04-07 Steven G. Kargl <kargls@comcast.net>
* simplify.c (gfc_simplify_exponent): Fix exponent(tiny(x))
2005-04-06 Steven G. Kargl <kargls@comcast.net>
* invoke.texi: Remove documentation of -std=f90

7
gcc/fortran/simplify.c
View file

@ -967,6 +967,7 @@ gfc_simplify_exp (gfc_expr * x)
gfc_expr *
gfc_simplify_exponent (gfc_expr * x)
{
int i;
mpfr_t tmp;
gfc_expr *result;
@ -991,6 +992,12 @@ gfc_simplify_exponent (gfc_expr * x)
gfc_mpfr_to_mpz (result->value.integer, tmp);
/* The model number for tiny(x) is b**(emin - 1) where b is the base and emin
is the smallest exponent value. So, we need to add 1 if x is tiny(x). */
i = gfc_validate_kind (x->ts.type, x->ts.kind, false);
if (mpfr_cmp (x->value.real, gfc_real_kinds[i].tiny) == 0)
mpz_add_ui (result->value.integer,result->value.integer, 1);
mpfr_clear (tmp);
return range_check (result, "EXPONENT");