diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-02-16 08:35:05 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-02-16 08:35:05 +0000 |
| commit | cd584ef87c4d4e8308e135adbe6bcea2dcaec489 (patch) | |
| tree | 3ac83bd52a9aa24e7bb3baae95180b6cbdae6cf3 /gcc/fortran/iresolve.c | |
| parent | 76f4ab1c76e60758300f2bba048337be26810fdd (diff) | |
| download | gcc-cd584ef87c4d4e8308e135adbe6bcea2dcaec489.tar.gz | |
2010-02-16 Tobias Burnus <burnus@net-b.de>
PR fortran/43040
* gfortran.h (gfc_isym_id): Rename GFS_ISYM_GAMMA to
* GFS_ISYM_TGAMMA.
* intrinsic.c (add_functions): Ditto.
* iresolve.c (gfc_resolve_gamma): Call tgamma instead of gamma.
* mathbuiltins.def: Use TGAMMA instead of GAMMA with "tgamma".
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156796 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index e2089b26907..17df4c1139a 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -912,7 +912,7 @@ gfc_resolve_gamma (gfc_expr *f, gfc_expr *x) { f->ts = x->ts; f->value.function.name - = gfc_get_string ("__gamma_%d", x->ts.kind); + = gfc_get_string ("__tgamma_%d", x->ts.kind); } |