1 files changed, 13 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/dummyfn.f90 b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/dummyfn.f90
new file mode 100644
index 000000000..d54f64899
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/dummyfn.f90
@@ -0,0 +1,13 @@
+! Program to test array valued dummy functions
+SUBROUTINE dummyfn(deriv)
+   implicit none
+   INTERFACE
+      FUNCTION deriv()
+         REAL :: deriv(4)
+      END FUNCTION deriv
+   END INTERFACE
+
+   REAL :: dx(4)
+
+   dx = deriv()
+END SUBROUTINE