From: Andrew Pinski Date: Mon, 27 Dec 2004 16:56:38 +0000 (+0000) Subject: trans-expr.c (gfc_conv_cst_int_power): Only check for flag_unsafe_math_optimizations... X-Git-Tag: releases/gcc-4.0.0~1918 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=201a97b4799fd44526a65abbcc2621f7d27766f7;p=thirdparty%2Fgcc.git trans-expr.c (gfc_conv_cst_int_power): Only check for flag_unsafe_math_optimizations if we have a float type. 2004-12-27 Andrew Pinski * trans-expr.c (gfc_conv_cst_int_power): Only check for flag_unsafe_math_optimizations if we have a float type. From-SVN: r92644 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5f2707e67720..d1b20a73650f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-12-27 Andrew Pinski + + * trans-expr.c (gfc_conv_cst_int_power): Only check for + flag_unsafe_math_optimizations if we have a float type. + 2004-12-27 Tobias Schlueter * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Change to diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 8832b33f6db2..d132ccb2b42e 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -542,7 +542,8 @@ gfc_conv_cst_int_power (gfc_se * se, tree lhs, tree rhs) n = abs (TREE_INT_CST_LOW (rhs)); sgn = tree_int_cst_sgn (rhs); - if ((!flag_unsafe_math_optimizations || optimize_size) && (n > 2 || n < -1)) + if (((FLOAT_TYPE_P (type) && !flag_unsafe_math_optimizations) || optimize_size) + && (n > 2 || n < -1)) return 0; /* rhs == 0 */