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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index efda5e7a3718c47b518a703252233dd842d35933..e2ec1af83e909416b5b88f4f7f8e7ffbb93bf2b2 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 5e129ae18de08206a4cf5395feefe05b93b53317..3fa52500344abf225768ca99b5a6ae928338981d 100644 (file)
--- 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