Message ID | CAKwh3qi1nzQnC9Pq2i6y=sk-QgNv5d8G9smqMZf1Liajek5AvA@mail.gmail.com |
---|---|
State | New |
Headers | show |
Index: gcc/fortran/decl.c =================================================================== --- gcc/fortran/decl.c (Revision 242341) +++ gcc/fortran/decl.c (Arbeitskopie) @@ -9615,6 +9615,8 @@ match_procedure_in_type (void) false)) return MATCH_ERROR; gfc_set_sym_referenced (stree->n.tb->u.specific->n.sym); + gfc_add_flavor(&stree->n.tb->u.specific->n.sym->attr, FL_PROCEDURE, + target, &stree->n.tb->u.specific->n.sym->declared_at); if (gfc_match_eos () == MATCH_YES) return MATCH_YES;