re PR fortran/25061 (procedure name conflict)

2007-06-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/25061
	gfortran.dg/invalid_procedure_name.f90: New test.

From-SVN: r125907

gcc/testsuite/ChangeLog

+2007-06-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/25061
+	gfortran.dg/invalid_procedure_name.f90: New test.
+
 2007-06-20  Adam Nemet  <anemet@caviumnetworks.com>
 
 	PR tree-optimization/25737

gcc/testsuite/gfortran.dg/invalid_procedure_name.f90

+! { dg-do compile }
+! PR25061 procedure name conflict
+! Test case from PR.
+INTERFACE I1 ! { dg-error "" }
+ SUBROUTINE S1(I)
+ END SUBROUTINE S1
+ SUBROUTINE S2(R)
+ END SUBROUTINE S2
+END INTERFACE I1
+CONTAINS
+ SUBROUTINE I1(I) ! { dg-error "already defined as a generic" }
+ END SUBROUTINE I1
+END
+