diff options
| author | Feng Wang <fengwang@gcc.gnu.org> | 2005-08-16 12:58:46 +0000 |
|---|---|---|
| committer | Feng Wang <fengwang@gcc.gnu.org> | 2005-08-16 12:58:46 +0000 |
| commit | 20fe2233a7169a95be493c7f0a335a3332711d8b (patch) | |
| tree | d70291de07532d7c25f2e7588ade06a990c69146 /gcc/fortran/trans-expr.c | |
| parent | 543e2cc3e46b6e5abe33eac1b4f591cfebfa6ed8 (diff) | |
| download | gcc-20fe2233a7169a95be493c7f0a335a3332711d8b.zip gcc-20fe2233a7169a95be493c7f0a335a3332711d8b.tar.gz gcc-20fe2233a7169a95be493c7f0a335a3332711d8b.tar.bz2 | |
[multiple changes]
2004-08-16 Huang Chun <chunhuang73@hotmail.com>
* trans-expr.c (gfc_conv_power_op): Evaluate the expression before
expand.
2005-08-16 Feng Wang <fengwang@nudt.edu.cn>
* gfortran.dg/power.f90: New test.
From-SVN: r103155
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 0e4e55d..69b2410 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -654,6 +654,7 @@ gfc_conv_power_op (gfc_se * se, gfc_expr * expr) gfc_init_se (&lse, se); gfc_conv_expr_val (&lse, expr->value.op.op1); + lse.expr = gfc_evaluate_now (lse.expr, &lse.pre); gfc_add_block_to_block (&se->pre, &lse.pre); gfc_init_se (&rse, se); |