diff options
-rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
-rw-r--r-- | gcc/fortran/gfortran.h | 2 | ||||
-rw-r--r-- | gcc/fortran/intrinsic.c | 6 | ||||
-rw-r--r-- | gcc/fortran/iresolve.c | 2 | ||||
-rw-r--r-- | gcc/fortran/mathbuiltins.def | 2 |
5 files changed, 14 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b498dc4..db05fd3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,11 @@ +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". + 2010-02-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/32382 diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 5b8f9c1..71f3fe0 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -377,7 +377,7 @@ enum gfc_isym_id GFC_ISYM_FSEEK, GFC_ISYM_FSTAT, GFC_ISYM_FTELL, - GFC_ISYM_GAMMA, + GFC_ISYM_TGAMMA, GFC_ISYM_GERROR, GFC_ISYM_GETARG, GFC_ISYM_GET_COMMAND, diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 859fd4b..7062312 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -1665,15 +1665,15 @@ add_functions (void) make_generic ("fput", GFC_ISYM_FPUT, GFC_STD_GNU); - add_sym_1 ("gamma", GFC_ISYM_GAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, + add_sym_1 ("gamma", GFC_ISYM_TGAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_F2008, gfc_check_fn_r, gfc_simplify_gamma, gfc_resolve_gamma, x, BT_REAL, dr, REQUIRED); - add_sym_1 ("dgamma", GFC_ISYM_GAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU, + add_sym_1 ("dgamma", GFC_ISYM_TGAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU, gfc_check_fn_d, gfc_simplify_gamma, gfc_resolve_gamma, x, BT_REAL, dr, REQUIRED); - make_generic ("gamma", GFC_ISYM_GAMMA, GFC_STD_F2008); + make_generic ("gamma", GFC_ISYM_TGAMMA, GFC_STD_F2008); /* Unix IDs (g77 compatibility) */ add_sym_1 ("getcwd", GFC_ISYM_GETCWD, NO_CLASS, ACTUAL_NO, BT_INTEGER, di, GFC_STD_GNU, 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); } diff --git a/gcc/fortran/mathbuiltins.def b/gcc/fortran/mathbuiltins.def index 37d4217..3bedc1a 100644 --- a/gcc/fortran/mathbuiltins.def +++ b/gcc/fortran/mathbuiltins.def @@ -48,6 +48,6 @@ DEFINE_MATH_BUILTIN (Y1, "y1", 0) DEFINE_MATH_BUILTIN (YN, "yn", 2) DEFINE_MATH_BUILTIN (ERF, "erf", 0) DEFINE_MATH_BUILTIN (ERFC, "erfc", 0) -DEFINE_MATH_BUILTIN (GAMMA, "tgamma", 0) +DEFINE_MATH_BUILTIN (TGAMMA,"tgamma", 0) DEFINE_MATH_BUILTIN (LGAMMA,"lgamma", 0) DEFINE_MATH_BUILTIN (HYPOT, "hypot", 1) |