diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-08-27 12:03:22 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-08-27 12:03:22 +0200 |
| commit | 5b550abd152ee303b6f833f25bcf1ed325ac974e (patch) | |
| tree | da0c37399e615fdbfbc49fffea38511d8e8d8b32 /gcc | |
| parent | f95ae12aa673d2e40f9fb43f770a37aa1b55c3a7 (diff) | |
| download | gcc-5b550abd152ee303b6f833f25bcf1ed325ac974e.zip gcc-5b550abd152ee303b6f833f25bcf1ed325ac974e.tar.gz gcc-5b550abd152ee303b6f833f25bcf1ed325ac974e.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/simplify.c | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index efda5e7..e2ec1af 100644 --- 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 5e129ae..3fa5250 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 |