1 files changed, 16 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/contained.f90 b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/contained.f90
new file mode 100644
index 000000000..3c7117744
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/contained.f90
@@ -0,0 +1,16 @@
+program contained
+   implicit none
+   integer i
+
+   i = 0;
+   call testproc (40)
+   if (i .ne. 42) call abort
+contains
+   subroutine testproc (p)
+      implicit none
+      integer p
+
+      if (p .ne. 40) call abort
+      i = p + 2
+   end subroutine
+end program