diff mbox

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

Message ID CAKwh3qi1nzQnC9Pq2i6y=sk-QgNv5d8G9smqMZf1Liajek5AvA@mail.gmail.com
State New
Headers show

Commit Message

Janus Weil Nov. 13, 2016, 11:18 a.m. UTC 
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
diff mbox

Patch

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;