1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/generic_1.f90 b/gcc/testsuite/gfortran.dg/generic_1.f90
new file mode 100644
index 000000000..12077dab5
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/generic_1.f90
@@ -0,0 +1,21 @@
+! { dg-do compile }
+! reduced testcase from PR 17535
+module FOO
+  interface BAR
+
+    subroutine BAR1(X)
+      integer :: X
+    end subroutine
+
+    subroutine BAR2(X)
+      real :: X
+    end subroutine
+
+  end interface
+end module
+
+subroutine BAZ(X)
+  use FOO
+end subroutine
+
+! { dg-final { cleanup-modules "FOO" } }