Add: test package for app with submodules

Author: LKedward

ci/run_tests.sh

@@ -92,6 +92,10 @@ pushd submodules
 "$fpm" build
 popd
 
+pushd app_with_submodule
+"$fpm" run --all
+popd
+
 pushd program_with_module
 "$fpm" build
 "$fpm" run --target Program_with_module

example_packages/README.md

@@ -7,6 +7,7 @@ the features demonstrated in each package and which versions of fpm are supporte
 | Name                | Features                                                      | Bootstrap (Haskell) fpm | fpm |
 |---------------------|---------------------------------------------------------------|:-----------------------:|:---:|
 | auto_discovery_off  | Default layout with auto-discovery disabled                   |            N            |  Y  |
+| app_with_submodule  | Submodules located in app directory (not src)                 |            N            |  Y  |
 | c_header_only       | C header-only library                                         |            N            |  Y  |
 | c_includes          | C library with c include directory and dependency includes    |            N            |  Y  |
 | circular_example    | Local path dependency; circular dependency                    |            Y            |  Y  |

example_packages/app_with_submodule/.gitignore

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

example_packages/app_with_submodule/app/app1/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 = my_fun()
+end procedure my_sub1
+
+end submodule child1

example_packages/app_with_submodule/app/app1/grandchild.f90

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

example_packages/app_with_submodule/app/app1/main1.f90

@@ -0,0 +1,14 @@
+program test
+use parent
+implicit none
+
+integer :: a
+
+call my_sub1(a)
+
+if (a /= 1) then
+    write(*,*) 'FAILED: Unexpected value of a'
+    stop 1
+end if
+
+end program test

example_packages/app_with_submodule/app/app2/child2.f90

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

example_packages/app_with_submodule/app/app2/main2.f90

@@ -0,0 +1,14 @@
+program test
+use parent
+implicit none
+
+integer :: a
+
+call my_sub1(a)
+
+if (a /= 2) then
+    write(*,*) 'FAILED: Unexpected value of a'
+    stop 1
+end if
+
+end program test

example_packages/app_with_submodule/fpm.toml

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

example_packages/app_with_submodule/src/parent.f90

@@ -0,0 +1,11 @@
+module parent
+implicit none
+
+interface
+
+    module subroutine my_sub1(a)
+        integer, intent(out) :: a
+    end subroutine my_sub1
+end interface
+
+end module parent