Add: test package for submodule tree-shaking

Author: LKedward

ci/run_tests.sh

@@ -70,6 +70,16 @@ test ! -e ./build/gfortran_*/tree_shake/src_farewell_m.f90.o
 test ! -e ./build/gfortran_*/tree_shake/src_farewell_m.f90.o.log
 popd
 
+pushd submodule_tree_shake
+"$fpm" run
+test ! -e ./build/gfortran_*/submodule_tree_shake/src_parent_unused.f90.o
+test ! -e ./build/gfortran_*/submodule_tree_shake/src_parent_unused.f90.o.log
+test ! -e ./build/gfortran_*/submodule_tree_shake/src_child_unused.f90.o
+test ! -e ./build/gfortran_*/submodule_tree_shake/src_child_unused.f90.o.log
+test ! -e ./build/gfortran_*/submodule_tree_shake/src_grandchild.f90.o
+test ! -e ./build/gfortran_*/submodule_tree_shake/src_grandchild.f90.o.log
+popd
+
 pushd version_file
 "$fpm" build
 "$fpm" run

example_packages/README.md

@@ -21,6 +21,7 @@ the features demonstrated in each package and which versions of fpm are supporte
 | program_with_module | App-only; module+program in single source file                |            Y            |  Y  |
 | submodules          | Lib-only; submodules (3 levels)                               |            N            |  Y  |
 | tree_shake          | Test tree-shaking/pruning of unused module dependencies       |            N            |  Y  |
+| submodule_tree_shake| Test tree-shaking/pruning with submodules dependencies        |            N            |  Y  |
 | link_external       | Link external library                                         |            N            |  Y  |
 | link_executable     | Link external library to a single executable                  |            N            |  Y  |
 | version_file        | Read version number from a file in the project root           |            N            |  Y  |

example_packages/submodule_tree_shake/.gitignore

@@ -0,0 +1 @@
+build/*

example_packages/submodule_tree_shake/app/main.f90

@@ -0,0 +1,9 @@
+program test
+use parent
+
+integer :: a, b
+
+call my_sub1(a)
+call my_sub2(b)
+
+end program test

example_packages/submodule_tree_shake/fpm.toml

@@ -0,0 +1 @@
+name = "submodule_tree_shake"

example_packages/submodule_tree_shake/src/child1.f90

@@ -0,0 +1,16 @@
+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

example_packages/submodule_tree_shake/src/child2.f90

@@ -0,0 +1,10 @@
+submodule(parent) child2
+implicit none
+
+contains
+
+module procedure my_sub2
+    a = 2
+end procedure my_sub2
+
+end submodule child2

example_packages/submodule_tree_shake/src/child_unused.f90

@@ -0,0 +1,10 @@
+submodule(parent_unused) child_unused
+implicit none
+
+contains
+
+module procedure unused_sub
+    a = 1
+end procedure unused_sub
+
+end submodule child_unused

example_packages/submodule_tree_shake/src/grandchild.f90

@@ -0,0 +1,10 @@
+submodule(parent:child1) grandchild
+implicit none
+
+contains
+
+module procedure my_fun
+    b = 2
+end procedure my_fun
+
+end submodule grandchild

example_packages/submodule_tree_shake/src/parent.f90

@@ -0,0 +1,15 @@
+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

example_packages/submodule_tree_shake/src/parent_unused.f90

@@ -0,0 +1,12 @@
+module parent_unused
+implicit none
+
+interface
+
+    module subroutine unused_sub(a)
+        integer, intent(out) :: a
+    end subroutine unused_sub
+    
+end interface
+
+end module parent_unused