diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-01 08:40:53 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-01 08:40:53 +0000 |
| commit | 166d08bddeffca222328dfb9806418910fe83729 (patch) | |
| tree | cec56c33ee5ba903a41efda3b893888b045f87ea /gcc/fortran/mathbuiltins.def | |
| parent | e14ca1cef69e39dd2a2ffffffdab47a51b803579 (diff) | |
| download | gcc-166d08bddeffca222328dfb9806418910fe83729.zip gcc-166d08bddeffca222328dfb9806418910fe83729.tar.gz gcc-166d08bddeffca222328dfb9806418910fe83729.tar.bz2 | |
trans-expr.c (gfc_conv_power_op): Handle floating-point types other than long double.
* trans-expr.c (gfc_conv_power_op): Handle floating-point types
other than long double.
* mathbuiltins.def: Add builtins from the POW and CPOW family.
* trans.h (gfc_builtin_decl_for_float_kind): New prototype.
* trans-intrinsic.c (gfc_builtin_decl_for_float_kind): Add gfc_
prefix to function name.
(gfc_build_intrinsic_lib_fndecls): Add cpow prototype.
(gfc_conv_intrinsic_aint): Use gfc_builtin_decl_for_float_kind
function name.
(gfc_conv_intrinsic_exponent): Likewise.
(gfc_conv_intrinsic_abs): Likewise.
(gfc_conv_intrinsic_mod): Likewise.
(gfc_conv_intrinsic_sign): Likewise.
(gfc_conv_intrinsic_arith): Likewise.
(gfc_conv_intrinsic_fraction): Likewise.
(gfc_conv_intrinsic_nearest): Likewise.
(gfc_conv_intrinsic_spacing): Likewise.
(gfc_conv_intrinsic_rrspacing): Likewise.
(gfc_conv_intrinsic_scale): Likewise.
(gfc_conv_intrinsic_set_exponent): Likewise.
From-SVN: r163721
Diffstat (limited to 'gcc/fortran/mathbuiltins.def')
| -rw-r--r-- | gcc/fortran/mathbuiltins.def | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/mathbuiltins.def b/gcc/fortran/mathbuiltins.def index 074390e9..660fee8 100644 --- a/gcc/fortran/mathbuiltins.def +++ b/gcc/fortran/mathbuiltins.def @@ -58,6 +58,7 @@ DEFINE_MATH_BUILTIN (HYPOT, "hypot", 1) double and long double) and to build the quad-precision decls. */ OTHER_BUILTIN (CABS, "cabs", cabs, true) OTHER_BUILTIN (COPYSIGN, "copysign", 2, true) +OTHER_BUILTIN (CPOW, "cpow", cpow, true) OTHER_BUILTIN (FABS, "fabs", 1, true) OTHER_BUILTIN (FMOD, "fmod", 2, true) OTHER_BUILTIN (FREXP, "frexp", frexp, false) @@ -65,6 +66,7 @@ OTHER_BUILTIN (HUGE_VAL, "huge_val", 0, true) OTHER_BUILTIN (LLROUND, "llround", llround, true) OTHER_BUILTIN (LROUND, "lround", lround, true) OTHER_BUILTIN (NEXTAFTER, "nextafter", 2, true) +OTHER_BUILTIN (POW, "pow", 1, true) OTHER_BUILTIN (ROUND, "round", 1, true) OTHER_BUILTIN (SCALBN, "scalbn", scalbn, true) OTHER_BUILTIN (TRUNC, "trunc", 1, true) |