diff options
| author | Roger Sayle <roger@eyesopen.com> | 2006-03-03 14:35:23 +0000 |
|---|---|---|
| committer | Roger Sayle <sayle@gcc.gnu.org> | 2006-03-03 14:35:23 +0000 |
| commit | 9a75ede07ca08c69fd38acafea04cc2e1a7bfd10 (patch) | |
| tree | 7da41b4b73ec8768b9f446eefe76692afed790e3 /gcc | |
| parent | 3fa9c136c3bed104251cba446fb9989504528e00 (diff) | |
| download | gcc-9a75ede07ca08c69fd38acafea04cc2e1a7bfd10.zip gcc-9a75ede07ca08c69fd38acafea04cc2e1a7bfd10.tar.gz gcc-9a75ede07ca08c69fd38acafea04cc2e1a7bfd10.tar.bz2 | |
re PR tree-optimization/26524 (ICE when compiling with -ffast-math and -O3 clatm5.f (lapack))
PR tree-optimization/26524
* tree-scalar-evolution.c (interpret_rhs_modify_expr): Use
fold_convert to create a constant of the appropriate type.
* gfortran.dg/pr26524.f: New test case.
From-SVN: r111676
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr26524.f | 16 | ||||
| -rw-r--r-- | gcc/tree-scalar-evolution.c | 6 |
4 files changed, 30 insertions, 3 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 1152768..464b36d 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2006-03-03 Roger Sayle <roger@eyesopen.com> + + PR tree-optimization/26524 + * tree-scalar-evolution.c (interpret_rhs_modify_expr): Use + fold_convert to create a constant of the appropriate type. + 2006-03-03 Richard Sandiford <richard@codesourcery.com> * doc/tm.texi: Refer to SYMBOL_REF_HAS_BLOCK_INFO_P instead of diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6765c46..28dcd43 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-03-03 Roger Sayle <roger@eyesopen.com> + + PR tree-optimization/26524 + * gfortran.dg/pr26524.f: New test case. + 2006-03-02 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * g++.dg/template/repo5.C: Cleanup repo files. diff --git a/gcc/testsuite/gfortran.dg/pr26524.f b/gcc/testsuite/gfortran.dg/pr26524.f new file mode 100644 index 0000000..3997477 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr26524.f @@ -0,0 +1,16 @@ +C PR tree-optimization/26524 +C { dg-do compile } +C { dg-options "-O2 -ffast-math" } + SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, + $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, + $ QBLCKB ) + COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ), + $ L( LDL, * ), R( LDR, * ) + COMPLEX IMEPS, REEPS + DO 240 I = 1, M + IF( MOD( I, 2 ).NE.0 .AND. I.LT.M ) THEN + A( I, I-1 ) = -IMEPS*2 + END IF + 240 CONTINUE + END + diff --git a/gcc/tree-scalar-evolution.c b/gcc/tree-scalar-evolution.c index 998b6aa..a346aa5 100644 --- a/gcc/tree-scalar-evolution.c +++ b/gcc/tree-scalar-evolution.c @@ -1647,9 +1647,9 @@ interpret_rhs_modify_expr (struct loop *loop, tree at_stmt, opnd10 = TREE_OPERAND (opnd1, 0); chrec10 = analyze_scalar_evolution (loop, opnd10); chrec10 = chrec_convert (type, chrec10, at_stmt); - res = chrec_fold_multiply (type, chrec10, SCALAR_FLOAT_TYPE_P (type) - ? build_real (type, dconstm1) - : build_int_cst_type (type, -1)); + /* TYPE may be integer, real or complex, so use fold_convert. */ + res = chrec_fold_multiply (type, chrec10, + fold_convert (type, integer_minus_one_node)); break; case MULT_EXPR: |