diff options
Diffstat (limited to 'test/example_packages/submodules/src')
-rw-r--r-- | test/example_packages/submodules/src/child1.f90 | 16 | ||||
-rw-r--r-- | test/example_packages/submodules/src/child2.f90 | 10 | ||||
-rw-r--r-- | test/example_packages/submodules/src/grandchild.f90 | 10 | ||||
-rw-r--r-- | test/example_packages/submodules/src/parent.f90 | 15 |
4 files changed, 0 insertions, 51 deletions
diff --git a/test/example_packages/submodules/src/child1.f90 b/test/example_packages/submodules/src/child1.f90 deleted file mode 100644 index dbd0fa5..0000000 --- a/test/example_packages/submodules/src/child1.f90 +++ /dev/null @@ -1,16 +0,0 @@ -submodule(parent) child1 -implicit none - -interface - module function my_fun() result (b) - integer :: b - end function my_fun -end interface - -contains - -module procedure my_sub1 - a = 1 -end procedure my_sub1 - -end submodule child1
\ No newline at end of file diff --git a/test/example_packages/submodules/src/child2.f90 b/test/example_packages/submodules/src/child2.f90 deleted file mode 100644 index 179cc32..0000000 --- a/test/example_packages/submodules/src/child2.f90 +++ /dev/null @@ -1,10 +0,0 @@ -submodule(parent) child2 -implicit none - -contains - -module procedure my_sub2 - a = 2 -end procedure my_sub2 - -end submodule child2
\ No newline at end of file diff --git a/test/example_packages/submodules/src/grandchild.f90 b/test/example_packages/submodules/src/grandchild.f90 deleted file mode 100644 index 8c5aa17..0000000 --- a/test/example_packages/submodules/src/grandchild.f90 +++ /dev/null @@ -1,10 +0,0 @@ -submodule(parent:child1) grandchild -implicit none - -contains - -module procedure my_fun - b = 2 -end procedure my_fun - -end submodule grandchild
\ No newline at end of file diff --git a/test/example_packages/submodules/src/parent.f90 b/test/example_packages/submodules/src/parent.f90 deleted file mode 100644 index 570827c..0000000 --- a/test/example_packages/submodules/src/parent.f90 +++ /dev/null @@ -1,15 +0,0 @@ -module parent -implicit none - -interface - - module subroutine my_sub1(a) - integer, intent(out) :: a - end subroutine my_sub1 - - module subroutine my_sub2(a) - integer, intent(out) :: a - end subroutine my_sub2 -end interface - -end module parent
\ No newline at end of file |