diff options
author | Milan Curcic <caomaco@gmail.com> | 2020-09-20 11:39:50 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-09-20 11:39:50 -0400 |
commit | 3a698bad1e94d7df4886d9b01d515d63b4d49d53 (patch) | |
tree | 0d735fa3747bbd65d45ed952647da42f6c8e373b /test | |
parent | e79b47e50ff86b9d0fd7aa504b52040752dd1a88 (diff) | |
parent | dd02f5d601dff3d214b1bf82d6bd62d29364d6b4 (diff) | |
download | fpm-3a698bad1e94d7df4886d9b01d515d63b4d49d53.tar.gz fpm-3a698bad1e94d7df4886d9b01d515d63b4d49d53.zip |
Merge pull request #180 from LKedward/recursive_discovery
Recursive source discovery
Diffstat (limited to 'test')
3 files changed, 11 insertions, 2 deletions
diff --git a/test/example_packages/hello_complex/source/farewell_m.f90 b/test/example_packages/hello_complex/source/farewell_m.f90 index 9fc75b9..fbc45ed 100644 --- a/test/example_packages/hello_complex/source/farewell_m.f90 +++ b/test/example_packages/hello_complex/source/farewell_m.f90 @@ -1,4 +1,5 @@ module farewell_m + use subdir_constants, only: FAREWELL_STR implicit none private @@ -8,6 +9,6 @@ contains character(len=*), intent(in) :: name character(len=:), allocatable :: greeting - greeting = "Goodbye, " // name // "!" + greeting = FAREWELL_STR // name // "!" end function make_farewell end module farewell_m diff --git a/test/example_packages/hello_complex/source/greet_m.f90 b/test/example_packages/hello_complex/source/greet_m.f90 index 2372f9a..38afd08 100644 --- a/test/example_packages/hello_complex/source/greet_m.f90 +++ b/test/example_packages/hello_complex/source/greet_m.f90 @@ -1,4 +1,5 @@ module greet_m + use subdir_constants, only: GREET_STR implicit none private @@ -8,6 +9,6 @@ contains character(len=*), intent(in) :: name character(len=:), allocatable :: greeting - greeting = "Hello, " // name // "!" + greeting = GREET_STR // name // "!" end function make_greeting end module greet_m diff --git a/test/example_packages/hello_complex/source/subdir/constants.f90 b/test/example_packages/hello_complex/source/subdir/constants.f90 new file mode 100644 index 0000000..59d6e5f --- /dev/null +++ b/test/example_packages/hello_complex/source/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 |