https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102503
Tobias Burnus <burnus at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |burnus at gcc dot gnu.org --- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> --- F2018:C837 An assumed-rank entity shall be a dummy data object that does not have the CODIMENSION or VALUE attribute. In principle, something like the following should do - but reading the file shows that there are many more issues of the same kind :-( --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -15623,7 +15623,7 @@ resolve_symbol (gfc_symbol *sym) return; } if (as->type == AS_ASSUMED_RANK - && (sym->attr.codimension || sym->attr.value)) + && (class_attr->attr.codimension || sym->attr.value)) { gfc_error ("Assumed-rank array at %L may not have the VALUE or " "CODIMENSION attribute", &sym->declared_at);