PR fortran/24005
gfortran.dg/interface_1.f90: New test.
From-SVN: r104545
+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>
--- /dev/null
+! { 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