From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Thu, 21 Jun 2007 01:48:21 +0000 (+0000)
Subject: re PR fortran/25061 (procedure name conflict)
X-Git-Tag: releases/gcc-4.3.0~4352
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=a3400cd548e8b0637750159ae0c85ccc466b95cf;p=thirdparty%2Fgcc.git

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 4130d6a20a7c..70a3e9801b76 100644
--- 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
index 000000000000..dd319382b4d9
--- /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
+