Commit 01ae8930 by Steven G. Kargl Committed by Steven G. Kargl

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

From-SVN: r97792
parent 03359b57
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
......
......@@ -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");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment