diff options
| author | Martin Jambor <mjambor@suse.cz> | 2009-06-16 12:11:55 +0200 |
|---|---|---|
| committer | Martin Jambor <jamborm@gcc.gnu.org> | 2009-06-16 12:11:55 +0200 |
| commit | 2b26b801df0c37d2982a8c3667aea8b74d42c5c6 (patch) | |
| tree | d54641652a829e612920b1d412fd459da7c421fb /gcc/tree-sra.c | |
| parent | 8ad15a0a8d0666e21f4217d8ba004b33bcaf383d (diff) | |
| download | gcc-2b26b801df0c37d2982a8c3667aea8b74d42c5c6.zip gcc-2b26b801df0c37d2982a8c3667aea8b74d42c5c6.tar.gz gcc-2b26b801df0c37d2982a8c3667aea8b74d42c5c6.tar.bz2 | |
re PR tree-optimization/40413 (Internal error in connection with optimization and allocatable objects)
2009-06-16 Martin Jambor <mjambor@suse.cz>
PR tree-optimization/40413
* tree-sra.c (load_assign_lhs_subreplacements): Pass offset to
build_ref_for_offset.
(propagate_subacesses_accross_link): Fix a typo in a comment.
* testsuite/gfortran.fortran-torture/compile/pr40413.f90: New file.
From-SVN: r148520
Diffstat (limited to 'gcc/tree-sra.c')
| -rw-r--r-- | gcc/tree-sra.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/tree-sra.c b/gcc/tree-sra.c index e5f9b96..ddb015c 100644 --- a/gcc/tree-sra.c +++ b/gcc/tree-sra.c @@ -1544,7 +1544,7 @@ propagate_subacesses_accross_link (struct access *lacc, struct access *racc) continue; } - /* If a (part of) a union field in on the RHS of an assignment, it can + /* If a (part of) a union field is on the RHS of an assignment, it can have sub-accesses which do not make sense on the LHS (PR 40351). Check that this is not the case. */ if (!build_ref_for_offset (NULL, TREE_TYPE (lacc->base), norm_offset, @@ -1949,8 +1949,7 @@ load_assign_lhs_subreplacements (struct access *lacc, struct access *top_racc, rhs = unshare_expr (top_racc->base); repl_found = build_ref_for_offset (&rhs, TREE_TYPE (top_racc->base), - lacc->offset - left_offset, - lacc->type, false); + offset, lacc->type, false); gcc_assert (repl_found); } |