mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 22:21:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call.

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

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

From-SVN: r127829
This commit is contained in:
Tobias Burnus 2007-08-27 12:03:22 +02:00 committed by Tobias Burnus
parent f95ae12aa6
commit 5b550abd15
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View 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

3
gcc/fortran/simplify.c
View 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