diff options
| author | Tobias Burnus <burnus@net-b.de> | 2018-10-18 21:35:34 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2018-10-18 21:35:34 +0200 |
| commit | d0477233215e37dea91b1a98e58074257d7fbb5b (patch) | |
| tree | be3c7d345234f820644bfca1ce75a9c27156a169 /gcc/fortran/trans-array.c | |
| parent | a9a2fddbf2a93b8427478954d4efe9e02080454f (diff) | |
| download | gcc-d0477233215e37dea91b1a98e58074257d7fbb5b.zip gcc-d0477233215e37dea91b1a98e58074257d7fbb5b.tar.gz gcc-d0477233215e37dea91b1a98e58074257d7fbb5b.tar.bz2 | |
Fix (re)alloc of polymorphic arrays
PR fortran/87625
* trans-array.c (gfc_is_reallocatable_lhs): Detect allocatable
polymorphic arrays.
PR fortran/87625
* gfortran.dg/realloc_on_assign_31.f90: New file.
From-SVN: r265283
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index ea4cf8c..47fec13 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -9616,9 +9616,15 @@ gfc_is_reallocatable_lhs (gfc_expr *expr) if (sym->ts.type == BT_CLASS && !sym->attr.associate_var && CLASS_DATA (sym)->attr.allocatable - && expr->ref && expr->ref->type == REF_COMPONENT - && strcmp (expr->ref->u.c.component->name, "_data") == 0 - && expr->ref->next == NULL) + && expr->ref + && ((expr->ref->type == REF_ARRAY && expr->ref->u.ar.type == AR_FULL + && expr->ref->next == NULL) + || (expr->ref->type == REF_COMPONENT + && strcmp (expr->ref->u.c.component->name, "_data") == 0 + && (expr->ref->next == NULL + || (expr->ref->next->type == REF_ARRAY + && expr->ref->next->u.ar.type == AR_FULL + && expr->ref->next->next == NULL))))) return true; /* An allocatable variable. */ |