From 5b550abd152ee303b6f833f25bcf1ed325ac974e Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 27 Aug 2007 12:03:22 +0200 Subject: [PATCH] simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call. 2007-08-27 Tobias Burnus * simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call. From-SVN: r127829 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/simplify.c | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index efda5e7a371..e2ec1af83e9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2007-08-27 Tobias Burnus + + * simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call. + 2007-08-26 Jerry DeLisle PR fortran/33055 diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 5e129ae18de..3fa52500344 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -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