add test case for same-name module+submodule

3 files changed, 6 insertions, 9 deletions

diff --git a/test cases/fortran/12 submodule/child.f90 b/test cases/fortran/12 submodule/child.f90
index aa5bb5e..45b5b41 100644
--- a/test cases/fortran/12 submodule/child.f90
+++ b/test cases/fortran/12 submodule/child.f90
@@ -1,4 +1,4 @@
-submodule (mother) daughter
+submodule (parent) parent
 
 contains
 
@@ -6,5 +6,5 @@ module procedure pi2tau
   pi2tau = 2*pi
 end procedure pi2tau
 
-end submodule daughter
+end submodule parent
 
diff --git a/test cases/fortran/12 submodule/meson.build b/test cases/fortran/12 submodule/meson.build
index cd62a30..b3ed9de 100644
--- a/test cases/fortran/12 submodule/meson.build
+++ b/test cases/fortran/12 submodule/meson.build
@@ -1,6 +1,6 @@
 project('submodule single level', 'fortran')
 
-hier2 = executable('single', 'parent.f90','child.f90')
+hier2 = executable('single', 'parent.f90', 'child.f90')
 test('single-level hierarchy', hier2)
 
 hierN = executable('multi', 'a1.f90', 'a2.f90', 'a3.f90')
diff --git a/test cases/fortran/12 submodule/parent.f90 b/test cases/fortran/12 submodule/parent.f90
index 05fe431..9d087d0 100644
--- a/test cases/fortran/12 submodule/parent.f90
+++ b/test cases/fortran/12 submodule/parent.f90
@@ -1,4 +1,4 @@
-module mother
+module parent
 real, parameter :: pi = 4.*atan(1.)
 real :: tau
 
@@ -8,13 +8,10 @@ module elemental real function pi2tau(pi)
 end function pi2tau
 end interface
 
-contains 
+end module parent
 
-end module mother
 
-
-program hier1
-use mother
+use parent
 
 tau = pi2tau(pi)