diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-02-16 09:35:05 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-02-16 09:35:05 +0100 |
| commit | 7bc19392e5caab29d0607163a021286c5ed4a859 (patch) | |
| tree | 3ac83bd52a9aa24e7bb3baae95180b6cbdae6cf3 /gcc/fortran/iresolve.c | |
| parent | ec8c39789d66bf51e21510bf1f6f673550a9c0eb (diff) | |
| download | gcc-7bc19392e5caab29d0607163a021286c5ed4a859.zip gcc-7bc19392e5caab29d0607163a021286c5ed4a859.tar.gz gcc-7bc19392e5caab29d0607163a021286c5ed4a859.tar.bz2 | |
re PR fortran/43040 (Wrong decl for mathbuiltins -> wrong code with LTO)
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".
From-SVN: r156796
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 e2089b2..17df4c1 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); } |