[Fortran, committed] Add the working testcase for PR fortran/29290

[Fortran, committed] Add the working testcase for PR fortran/29290

[Mikael Morin]

[-- Attachment #1: Type: text/plain, Size: 261 bytes --]

Hello,

the reported case in PR fortran/29290 is now rejected as expected.
I have dejagnu-fied it and committed as obvious.

Mikael

PS: the PR can't be closed as the runtime behaviour mandated by the
standard isn't respected (the wrong procedure is called).



[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: r190504.diff --]
[-- Type: text/x-patch; name="r190504.diff", Size: 970 bytes --]

Index: gfortran.dg/interface_37.f90
===================================================================
--- gfortran.dg/interface_37.f90	(révision 0)
+++ gfortran.dg/interface_37.f90	(révision 190504)
@@ -0,0 +1,16 @@
+! { dg-do compile }
+!
+! PR fortran/39290
+! Subroutine/function ambiguity in generics.
+!
+     interface q
+       subroutine qr(f)
+         implicit real(f)
+         external f
+       end subroutine
+       subroutine qc(f)
+         implicit complex(f)
+         external f
+       end subroutine ! { dg-error "Ambiguous interfaces" }
+     end interface q
+   end
Index: ChangeLog
===================================================================
--- ChangeLog	(révision 190503)
+++ ChangeLog	(révision 190504)
@@ -1,3 +1,8 @@
+2012-08-18  Mikael Morin  <mikael@gcc.gnu.org>
+
+	PR fortran/39290
+	* gfortran.dg/interface_37.f90: New test.
+
 2012-08-17  H.J. Lu  <hongjiu.lu@intel.com>
 	    Gary Funck <gary@intrepid.com>