From: Mikael Morin <mikael@gcc.gnu.org>
Date: Sat, 18 Aug 2012 22:00:10 +0000 (+0000)
Subject: Add the working testcase from PR fortran/39290.
X-Git-Tag: misc/gccgo-go1_1_2~1308
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b44e2c4cfb03d46d3969039fc54461a1f8afb5d0;p=thirdparty%2Fgcc.git

Add the working testcase from PR fortran/39290.

testsuite/
	PR fortran/39290
	* gfortran.dg/interface_37.f90: New test.

From-SVN: r190504
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8dccf8bc48f0..e8a48c9c6d8f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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>
 
diff --git a/gcc/testsuite/gfortran.dg/interface_37.f90 b/gcc/testsuite/gfortran.dg/interface_37.f90
new file mode 100644
index 000000000000..a39f4748ac24
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/interface_37.f90
@@ -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