diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2016-01-27 21:24:01 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2016-01-27 21:24:01 +0000 |
| commit | 49847d759f449f0b299fae28932e996037338f88 (patch) | |
| tree | d710a896ffd59a5b49bb3d8aeed4e52002ce8bd5 /gcc/fortran | |
| parent | 9525851d49b18b8b62c47fd2092dbb3937b887f7 (diff) | |
| download | gcc-49847d759f449f0b299fae28932e996037338f88.zip gcc-49847d759f449f0b299fae28932e996037338f88.tar.gz gcc-49847d759f449f0b299fae28932e996037338f88.tar.bz2 | |
[multiple changes]
2016-01-27 Paul Thomas <pault@gcc.gnu.org>
PR fortran/69385
* trans-expr.c (is_scalar_reallocatable_lhs): Remove the check
for allocatable components, whilst checking if the symbol is a
derived or class entity..
2015-01-27 Paul Thomas <pault@gcc.gnu.org>
PR fortran/69385
* gfortran.dg/alloc_comp_assign_15.f03: New test.
From-SVN: r232904
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 7 |
2 files changed, 11 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0a55a09..9fd8ec8 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2016-01-27 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/69385 + * trans-expr.c (is_scalar_reallocatable_lhs): Remove the check + for allocatable components, whilst checking if the symbol is a + derived or class entity.. + 2016-01-26 Paul Thomas <pault@gcc.gnu.org> PR fortran/69385 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 5031a37..c5ae4c5 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -8901,10 +8901,11 @@ is_scalar_reallocatable_lhs (gfc_expr *expr) && !expr->ref) return true; - /* All that can be left are allocatable components. */ - if ((expr->symtree->n.sym->ts.type != BT_DERIVED + /* All that can be left are allocatable components. However, we do + not check for allocatable components here because the expression + could be an allocatable component of a pointer component. */ + if (expr->symtree->n.sym->ts.type != BT_DERIVED && expr->symtree->n.sym->ts.type != BT_CLASS) - || !expr->symtree->n.sym->ts.u.derived->attr.alloc_comp) return false; /* Find an allocatable component ref last. */ |