Add: test package for tree-shaking

Author: LKedward

ci/run_tests.sh

@@ -62,6 +62,14 @@ test ! -x ./build/gfortran_*/app/unused
 test ! -x ./build/gfortran_*/test/unused_test
 popd
 
+pushd tree_shake
+"$fpm" build
+"$fpm" run
+"$fpm" test
+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 version_file
 "$fpm" build
 "$fpm" run

example_packages/README.md

@@ -20,6 +20,7 @@ the features demonstrated in each package and which versions of fpm are supporte
 | makefile_complex    | External build command (makefile); local path dependency      |            Y            |  N  |
 | 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  |
 | 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/tree_shake/.gitignore

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

example_packages/tree_shake/app/say_Hello.f90

@@ -0,0 +1,7 @@
+program say_Hello
+    use greet_m, only: make_greeting
+
+    implicit none
+
+    print *, make_greeting("World")
+end program say_Hello

example_packages/tree_shake/fpm.toml

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

example_packages/tree_shake/src/farewell_m.f90

@@ -0,0 +1,14 @@
+module farewell_m
+    use subdir_constants, only: FAREWELL_STR
+    implicit none
+    private
+
+    public :: make_farewell
+contains
+    function make_farewell(name) result(greeting)
+        character(len=*), intent(in) :: name
+        character(len=:), allocatable :: greeting
+
+        greeting = FAREWELL_STR // name // "!"
+    end function make_farewell
+end module farewell_m

example_packages/tree_shake/src/greet_m.f90

@@ -0,0 +1,14 @@
+module greet_m
+    use subdir_constants, only: GREET_STR
+    implicit none
+    private
+
+    public :: make_greeting
+contains
+    function make_greeting(name) result(greeting)
+        character(len=*), intent(in) :: name
+        character(len=:), allocatable :: greeting
+
+        greeting = GREET_STR // name // "!"
+    end function make_greeting
+end module greet_m

example_packages/tree_shake/src/subdir/constants.f90

@@ -0,0 +1,7 @@
+module subdir_constants
+implicit none
+
+character(*), parameter :: GREET_STR = 'Hello, '
+character(*), parameter :: FAREWELL_STR = 'Goodbye, '
+
+end module subdir_constants

example_packages/tree_shake/test/greet_test.f90

@@ -0,0 +1,18 @@
+program greet_test
+    use greet_m, only: make_greeting
+    use iso_fortran_env, only: error_unit, output_unit
+
+    implicit none
+
+    character(len=:), allocatable :: greeting
+
+    allocate(character(len=0) :: greeting)
+    greeting = make_greeting("World")
+
+    if (greeting == "Hello, World!") then
+        write(output_unit, *) "Passed"
+    else
+        write(error_unit, *) "Failed"
+        call exit(1)
+    end if
+end program greet_test