aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorMikael Morin <mikael@gcc.gnu.org>2012-08-18 22:00:10 +0000
committerMikael Morin <mikael@gcc.gnu.org>2012-08-18 22:00:10 +0000
commitb44e2c4cfb03d46d3969039fc54461a1f8afb5d0 (patch)
tree34b29ec188cb801038f12dfcf39919db6007a095 /gcc
parenta9c283a506663a1bb97330a609a3c443043424b1 (diff)
downloadgcc-b44e2c4cfb03d46d3969039fc54461a1f8afb5d0.zip
gcc-b44e2c4cfb03d46d3969039fc54461a1f8afb5d0.tar.gz
gcc-b44e2c4cfb03d46d3969039fc54461a1f8afb5d0.tar.bz2
Add the working testcase from PR fortran/39290.
testsuite/ PR fortran/39290 * gfortran.dg/interface_37.f90: New test. From-SVN: r190504
Diffstat (limited to 'gcc')
-rw-r--r--gcc/testsuite/ChangeLog5
-rw-r--r--gcc/testsuite/gfortran.dg/interface_37.f9016
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8dccf8b..e8a48c9 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 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