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 8dccf8bc48f0077688ef780fe8ed40512ecdf42a..e8a48c9c6d8f05c4eb3eeae833bb7eca1e2cc97a 100644 (file)
--- 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 (file)
index 0000000..a39f474
--- /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