From 293155b099b94b81fa0147f2719f3da23c859f7e Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Wed, 9 Jun 2004 21:57:24 +0200 Subject: [PATCH] trans-expr.c (gfc_conv_cst_int_power): Compute x**(-n) by converting it to (1/x)**n instead of 1/x**n. 2004-06-09 Toon Moene * trans-expr.c (gfc_conv_cst_int_power): Compute x**(-n) by converting it to (1/x)**n instead of 1/x**n. From-SVN: r82850 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-expr.c | 7 ++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d8a6da42f98..a9f08c2df41 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2004-06-09 Toon Moene + + * trans-expr.c (gfc_conv_cst_int_power): Compute + x**(-n) by converting it to (1/x)**n instead of + 1/x**n. + 2004-06-09 Tobias Schlueter PR fortran/13372 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index dda08bbed81..2258ce6377d 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -526,13 +526,14 @@ gfc_conv_cst_int_power (gfc_se * se, tree lhs, tree rhs) memset (vartmp, 0, sizeof (vartmp)); vartmp[1] = lhs; - - se->expr = gfc_conv_powi (se, n, vartmp); if (sgn == -1) { tmp = gfc_build_const (type, integer_one_node); - se->expr = build (RDIV_EXPR, type, tmp, se->expr); + vartmp[1] = build (RDIV_EXPR, type, tmp, vartmp[1]); } + + se->expr = gfc_conv_powi (se, n, vartmp); + return 1; } -- 2.30.2