diff options
Diffstat (limited to 'gcc/fortran/trans-expr.cc')
| -rw-r--r-- | gcc/fortran/trans-expr.cc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index 7c0b174..0d790b6 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -2394,6 +2394,11 @@ gfc_get_tree_for_caf_expr (gfc_expr *expr) if (CLASS_DATA (expr->symtree->n.sym)->attr.codimension) return caf_decl; } + else if (DECL_P (caf_decl) && DECL_LANG_SPECIFIC (caf_decl) + && GFC_DECL_TOKEN (caf_decl) + && CLASS_DATA (expr->symtree->n.sym)->attr.codimension) + return caf_decl; + for (ref = expr->ref; ref; ref = ref->next) { if (ref->type == REF_COMPONENT |