From 11f60de93294ad5cd2c1f66f8c6f6a86ec40673a Mon Sep 17 00:00:00 2001
From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 22 Sep 2005 22:47:45 +0000
Subject: [PATCH] PR fortran/24005 gfortran.dg/interface_1.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104545 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                   |  5 ++++
 gcc/testsuite/gfortran.dg/interface_1.f90 | 40 +++++++++++++++++++++++++++++++
 2 files changed, 45 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/interface_1.f90

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ab82adc..3f32377 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-22 Steven G. Kargl  <kargls@comcast.net>
+
+	PR fortran/24005
+	gfortran.dg/interface_1.f90: New test.
+
 2005-09-22  Erik Edelmann  <erik.edelmann@iki.fi>
 	Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
 
diff --git a/gcc/testsuite/gfortran.dg/interface_1.f90 b/gcc/testsuite/gfortran.dg/interface_1.f90
new file mode 100644
index 0000000..e2562e1
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/interface_1.f90
@@ -0,0 +1,40 @@
+! { dg-do compile }
+! This program would segfault without the patch for PR fortran/24005.
+module y
+  !
+  ! If private statement is removed, then we get a bunch of errors
+  !
+  private f
+  !
+  ! If we rename 'f' in module y to say 'g', then gfortran correctly
+  ! identifies ambiguous as being ambiguous.
+  !
+  interface ambiguous
+    module procedure f
+  end interface
+
+  contains
+
+    real function f(a)
+      real a
+      f = a
+    end function
+
+end module y
+
+module z
+
+  use y
+
+  interface ambiguous
+    module procedure f    ! { dg-error "in generic interface" "" }
+  end interface
+
+  contains
+
+    real function f(a)
+      real a
+      f = a
+    end function
+
+end module z
-- 
2.7.4