From: Bernd Schmidt Date: Tue, 4 Nov 2014 15:25:28 +0000 (+0000) Subject: Fix type mismatches in intrinsic functions. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5cfd56a7db9507ae018706c05dccd9d3f7eefca7;p=gcc.git 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 --- 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 + + * 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 * 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)