diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 7 |
2 files changed, 10 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d8a6da4..a9f08c2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2004-06-09 Toon Moene <toon@moene.indiv.nluug.nl> + + * 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 <tobias.schlueter@physik.uni-muenchen.de> PR fortran/13372 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index dda08bb..2258ce6 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; } |