re PR fortran/60952 ([F03] Problem using "end" as a type-bound procedure and contained procedure)

2016-11-13  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/60952
	* decl.c (match_procedure_in_type): Apply the FL_PROCEDURE attribute
	to the target procedure.

2016-11-13  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/60952
	* gfortran.dg/typebound_proc_34.f90: New test.

From-SVN: r242352

gcc/fortran/ChangeLog

 2016-11-13  Janus Weil  <janus@gcc.gnu.org>
 
+	PR fortran/60952
+	* decl.c (match_procedure_in_type): Apply the FL_PROCEDURE attribute
+	to the target procedure.
+
+2016-11-13  Janus Weil  <janus@gcc.gnu.org>
+
 	PR fortran/66366
 	* resolve.c (resolve_component): Move check for C437
 	to ...

gcc/fortran/decl.c

@@ -9624,6 +9624,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;

gcc/testsuite/ChangeLog

 2016-11-13  Janus Weil  <janus@gcc.gnu.org>
 
+	PR fortran/60952
+	* gfortran.dg/typebound_proc_34.f90: New test.
+
+2016-11-13  Janus Weil  <janus@gcc.gnu.org>
+
 	PR fortran/66366
 	* gfortran.dg/class_57.f90: Changed error message.
 	* gfortran.dg/class_60.f90: New test.

gcc/testsuite/gfortran.dg/typebound_proc_34.f90

+! { dg-do compile }
+!
+! PR 60952: [F03] Problem using "end" as a type bound procedure and contained procedures
+!
+! Contributed by tlcclt <Thomas.L.Clune@nasa.gov>
+
+module A_mod
+  implicit none
+
+  type A
+  contains
+    procedure, nopass :: end
+  end type
+
+contains
+
+  subroutine swap
+  contains
+    subroutine subSwap
+    end subroutine
+  end subroutine
+
+  integer function end()
+  end function
+
+end module