OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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
This commit is contained in:
Feng Wang 2005-08-16 12:58:46 +00:00
parent 543e2cc3e4
commit 20fe2233a7
4 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-08-16 Huang Chun <chunhuang73@hotmail.com>
* trans-expr.c (gfc_conv_power_op): Evaluate the expression before
expand.
2005-08-14 Asher Langton <langton2@llnl.gov>
* parse.c (match): Enclosed macro in do...while(0) and braces.

1
gcc/fortran/trans-expr.c
View File

@ -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);

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2005-08-16 Feng Wang <fengwang@nudt.edu.cn>
* gfortran.dg/power.f90: New test.
2005-08-16 Jakub Jelinek <jakub@redhat.com>
PR rtl-optimization/23299

11
gcc/testsuite/gfortran.dg/power.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do run }
integer i
i = 0
if ( a (i) ** 5 .ne. 1) call abort ()
contains
function a (i)
integer a, i
i = i + 1
a = i
end function
end