Commit 5b550abd by Tobias Burnus Committed by Tobias Burnus

simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call.

2007-08-27  Tobias Burnus  <burnus@net-b.de>

	* simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call.

From-SVN: r127829
parent f95ae12a
2007-08-27 Tobias Burnus <burnus@net-b.de>
* simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call.
2007-08-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33055
......
......@@ -2235,6 +2235,7 @@ gfc_simplify_lgamma (gfc_expr *x __attribute__((unused)))
{
#if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0)
gfc_expr *result;
int sg;
if (x->expr_type != EXPR_CONSTANT)
return NULL;
......@@ -2243,7 +2244,7 @@ gfc_simplify_lgamma (gfc_expr *x __attribute__((unused)))
gfc_set_model_kind (x->ts.kind);
mpfr_lgamma (result->value.real, x->value.real, GFC_RND_MODE);
mpfr_lgamma (result->value.real, &sg, x->value.real, GFC_RND_MODE);
return range_check (result, "LGAMMA");
#else
......
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