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/tree-scalar-evolution.c | |
| 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/tree-scalar-evolution.c')
| -rw-r--r-- | gcc/tree-scalar-evolution.c | 6 |
1 files changed, 3 insertions, 3 deletions
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: |