diff options
| author | Martin Liska <mliska@suse.cz> | 2021-12-30 14:34:08 +0100 |
|---|---|---|
| committer | Martin Liska <mliska@suse.cz> | 2021-12-30 14:34:08 +0100 |
| commit | 3710ef43346d9c666fa8175812806d20ebd4e380 (patch) | |
| tree | a4921408674e35db5c07786bf949e9fc9bf8f096 /gcc/fortran/expr.c | |
| parent | 50c93d3fa3f1394dbe992e287a934e2a523b787c (diff) | |
| parent | 73898bc006ee9bec1a5eed4bfdd4eb0b158b7838 (diff) | |
| download | gcc-3710ef43346d9c666fa8175812806d20ebd4e380.zip gcc-3710ef43346d9c666fa8175812806d20ebd4e380.tar.gz gcc-3710ef43346d9c666fa8175812806d20ebd4e380.tar.bz2 | |
Merge branch 'master' into devel/sphinx
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index b874607..c1258e0 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -5166,7 +5166,8 @@ gfc_get_variable_expr (gfc_symtree *var) if (var->n.sym->attr.flavor != FL_PROCEDURE && ((var->n.sym->as != NULL && var->n.sym->ts.type != BT_CLASS) - || (var->n.sym->ts.type == BT_CLASS && CLASS_DATA (var->n.sym) + || (var->n.sym->ts.type == BT_CLASS && var->n.sym->ts.u.derived + && CLASS_DATA (var->n.sym) && CLASS_DATA (var->n.sym)->as))) { e->rank = var->n.sym->ts.type == BT_CLASS |