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/f95-lang.c | |
| parent | 0dadf728957897aa0afdcf733632edbe81b1b43a (diff) | |
| download | gcc-5cfd56a7db9507ae018706c05dccd9d3f7eefca7.zip gcc-5cfd56a7db9507ae018706c05dccd9d3f7eefca7.tar.gz gcc-5cfd56a7db9507ae018706c05dccd9d3f7eefca7.tar.bz2 | |
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/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 9c3ff22..c313606 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); |