[Patch, Fortran, committed] PR 60952: [F03] Problem using "end" as a type bound procedure and contained procedures

[Janus Weil]

Hi all,

I have just committed an obvious fix for a rejects-valid problem,
where a procedure named 'end' was not properly flagged as a procedure:

https://gcc.gnu.org/viewcvs?rev=242352&root=gcc&view=rev

Cheers,
Janus

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;