OSDN Git Service

2007-08-27 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 27 Aug 2007 10:03:22 +0000 (10:03 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 27 Aug 2007 10:03:22 +0000 (10:03 +0000)
* simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127829 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/simplify.c

index efda5e7..e2ec1af 100644 (file)
@@ -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
index 5e129ae..3fa5250 100644 (file)
@@ -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