From b5b16cf826d468e79b4087500192a4a9e07c140f Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Wed, 14 Oct 2020 09:24:55 -0500 Subject: Better organize example packages and bootstrap tests --- test/example_packages/submodules/src/child1.f90 | 16 ---------------- test/example_packages/submodules/src/child2.f90 | 10 ---------- test/example_packages/submodules/src/grandchild.f90 | 10 ---------- test/example_packages/submodules/src/parent.f90 | 15 --------------- 4 files changed, 51 deletions(-) delete mode 100644 test/example_packages/submodules/src/child1.f90 delete mode 100644 test/example_packages/submodules/src/child2.f90 delete mode 100644 test/example_packages/submodules/src/grandchild.f90 delete mode 100644 test/example_packages/submodules/src/parent.f90 (limited to 'test/example_packages/submodules/src') 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 -- cgit v1.2.3