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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4130d6a20a7c10fc2b4a6a3505aa795e2a228d81..70a3e9801b7609142a71ef5115f5a73bf51926c0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/invalid_procedure_name.f90 b/gcc/testsuite/gfortran.dg/invalid_procedure_name.f90
new file mode 100644 (file)
index 0000000..dd31938
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/invalid_procedure_name.f90
@@ -0,0 +1,14 @@
+! { 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
+