diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2004-06-09 21:57:24 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2004-06-09 19:57:24 +0000 |
| commit | 293155b099b94b81fa0147f2719f3da23c859f7e (patch) | |
| tree | b6dedda37c38274545c3226d1e837004d0b4d99e /gcc/fortran | |
| parent | dc88d66f1aa98873becd21900046cae7bccbc14c (diff) | |
| download | gcc-293155b099b94b81fa0147f2719f3da23c859f7e.zip gcc-293155b099b94b81fa0147f2719f3da23c859f7e.tar.gz gcc-293155b099b94b81fa0147f2719f3da23c859f7e.tar.bz2 | |
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 <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.
From-SVN: r82850
Diffstat (limited to 'gcc/fortran')
| -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; } |