1 files changed, 19 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/gen_interf.f90 b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/gen_interf.f90
new file mode 100644
index 000000000..eb493411b
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/gen_interf.f90
@@ -0,0 +1,19 @@
+! Program to test generic interfaces.
+program gen_interf
+   implicit none
+   interface gen
+      function ifn (a)
+         integer :: a, ifn
+      end function
+   end interface
+   interface gsub
+      subroutine igsub (a)
+         integer a
+      end subroutine
+   end interface
+         
+   integer i
+
+   call gsub (i)
+   i = gen(i)
+end program