1 files changed, 35 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/contained_4.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/contained_4.f90
new file mode 100644
index 000000000..233dab878
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/compile/contained_4.f90
@@ -0,0 +1,35 @@
+! Check contained functions with the same name.
+module contained_4
+
+contains
+
+  subroutine foo1()
+    call bar()
+  contains
+    subroutine bar()
+    end subroutine bar
+  end subroutine foo1
+
+  subroutine foo2()
+    call bar()
+  contains
+    subroutine bar()
+    end subroutine bar
+  end subroutine foo2
+
+end module contained_4
+
+subroutine foo1()
+call bar()
+contains
+  subroutine bar()
+  end subroutine bar
+end subroutine
+
+subroutine foo2()
+  call bar()
+contains
+  subroutine bar()
+  end subroutine bar
+end subroutine foo2
+