diff options
| author | Bernd Schmidt <bernds@codesourcery.com> | 2014-11-04 15:25:28 +0000 |
|---|---|---|
| committer | Bernd Schmidt <bernds@gcc.gnu.org> | 2014-11-04 15:25:28 +0000 |
| commit | 5cfd56a7db9507ae018706c05dccd9d3f7eefca7 (patch) | |
| tree | 7dca751fe03b0bbaba310a1e0345e7a784ba29f2 /gcc/fortran | |
| parent | 0dadf728957897aa0afdcf733632edbe81b1b43a (diff) | |
| download | gcc-5cfd56a7db9507ae018706c05dccd9d3f7eefca7.tar.gz | |
Fix type mismatches in intrinsic functions.
* f95-lang.c (gfc_init_builtin_functions): Use type index 2 for
scalbn, scalbnl and scalbnf.
* mathbuiltins.def (JN, YN): Use type index 5.
From-SVN: r217087
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 12 | ||||
| -rw-r--r-- | gcc/fortran/mathbuiltins.def | 4 |
3 files changed, 14 insertions, 8 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d05fa8296bd..3a8e658ee86 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2014-11-04 Bernd Schmidt <bernds@codesourcery.com> + + * f95-lang.c (gfc_init_builtin_functions): Use type index 2 for + scalbn, scalbnl and scalbnf. + * mathbuiltins.def (JN, YN): Use type index 5. + 2014-10-29 Richard Sandiford <richard.sandiford@arm.com> * trans-types.c, trans-types.h: Remove redundant enum from diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 9c3ff228b77..c313606733b 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -823,11 +823,11 @@ gfc_init_builtin_functions (void) gfc_define_builtin ("__builtin_fabsf", mfunc_float[0], BUILT_IN_FABSF, "fabsf", ATTR_CONST_NOTHROW_LEAF_LIST); - gfc_define_builtin ("__builtin_scalbnl", mfunc_longdouble[5], + gfc_define_builtin ("__builtin_scalbnl", mfunc_longdouble[2], BUILT_IN_SCALBNL, "scalbnl", ATTR_CONST_NOTHROW_LEAF_LIST); - gfc_define_builtin ("__builtin_scalbn", mfunc_double[5], + gfc_define_builtin ("__builtin_scalbn", mfunc_double[2], BUILT_IN_SCALBN, "scalbn", ATTR_CONST_NOTHROW_LEAF_LIST); - gfc_define_builtin ("__builtin_scalbnf", mfunc_float[5], + gfc_define_builtin ("__builtin_scalbnf", mfunc_float[2], BUILT_IN_SCALBNF, "scalbnf", ATTR_CONST_NOTHROW_LEAF_LIST); gfc_define_builtin ("__builtin_fmodl", mfunc_longdouble[1], @@ -890,11 +890,11 @@ gfc_init_builtin_functions (void) BUILT_IN_CPOW, "cpow", ATTR_CONST_NOTHROW_LEAF_LIST); gfc_define_builtin ("__builtin_cpowf", mfunc_cfloat[1], BUILT_IN_CPOWF, "cpowf", ATTR_CONST_NOTHROW_LEAF_LIST); - gfc_define_builtin ("__builtin_powil", mfunc_longdouble[2], + gfc_define_builtin ("__builtin_powil", mfunc_longdouble[2], BUILT_IN_POWIL, "powil", ATTR_CONST_NOTHROW_LEAF_LIST); - gfc_define_builtin ("__builtin_powi", mfunc_double[2], + gfc_define_builtin ("__builtin_powi", mfunc_double[2], BUILT_IN_POWI, "powi", ATTR_CONST_NOTHROW_LEAF_LIST); - gfc_define_builtin ("__builtin_powif", mfunc_float[2], + gfc_define_builtin ("__builtin_powif", mfunc_float[2], BUILT_IN_POWIF, "powif", ATTR_CONST_NOTHROW_LEAF_LIST); diff --git a/gcc/fortran/mathbuiltins.def b/gcc/fortran/mathbuiltins.def index 848da7cc763..bed3ca0b466 100644 --- a/gcc/fortran/mathbuiltins.def +++ b/gcc/fortran/mathbuiltins.def @@ -42,10 +42,10 @@ DEFINE_MATH_BUILTIN_C (TAN, "tan", 0) DEFINE_MATH_BUILTIN_C (TANH, "tanh", 0) DEFINE_MATH_BUILTIN (J0, "j0", 0) DEFINE_MATH_BUILTIN (J1, "j1", 0) -DEFINE_MATH_BUILTIN (JN, "jn", 2) +DEFINE_MATH_BUILTIN (JN, "jn", 5) DEFINE_MATH_BUILTIN (Y0, "y0", 0) DEFINE_MATH_BUILTIN (Y1, "y1", 0) -DEFINE_MATH_BUILTIN (YN, "yn", 2) +DEFINE_MATH_BUILTIN (YN, "yn", 5) DEFINE_MATH_BUILTIN (ERF, "erf", 0) DEFINE_MATH_BUILTIN (ERFC, "erfc", 0) DEFINE_MATH_BUILTIN (TGAMMA,"tgamma", 0) |