From b44e2c4cfb03d46d3969039fc54461a1f8afb5d0 Mon Sep 17 00:00:00 2001
From: Mikael Morin <mikael@gcc.gnu.org>
Date: Sat, 18 Aug 2012 22:00:10 +0000
Subject: [PATCH] Add the working testcase from PR fortran/39290.

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

From-SVN: r190504
---
 gcc/testsuite/ChangeLog                    |  5 +++++
 gcc/testsuite/gfortran.dg/interface_37.f90 | 16 ++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/interface_37.f90

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
-- 
2.47.2