diff options
Diffstat (limited to 'gcc/fortran/symbol.cc')
| -rw-r--r-- | gcc/fortran/symbol.cc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/symbol.cc b/gcc/fortran/symbol.cc index a8b623d..dd209a2 100644 --- a/gcc/fortran/symbol.cc +++ b/gcc/fortran/symbol.cc @@ -5410,7 +5410,8 @@ gfc_is_associate_pointer (gfc_symbol* sym) if (!sym->assoc->variable) return false; - if (sym->attr.dimension && sym->as->type != AS_EXPLICIT) + if ((sym->attr.dimension || sym->attr.codimension) + && sym->as->type != AS_EXPLICIT) return false; return true; |