diff options
| author | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-03 14:35:23 +0000 |
|---|---|---|
| committer | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-03 14:35:23 +0000 |
| commit | 560af66a9aba07bb656034b5bf121d46f5b6026f (patch) | |
| tree | 7da41b4b73ec8768b9f446eefe76692afed790e3 /gcc/tree-scalar-evolution.c | |
| parent | 6617cbc1eb60bc02c4fcf25ceaf07ccad481528e (diff) | |
| download | gcc-560af66a9aba07bb656034b5bf121d46f5b6026f.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111676 138bc75d-0d04-0410-961f-82ee72b054a4
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 998b6aa459f..a346aa5d9e2 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: |