aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorMilan Curcic <caomaco@gmail.com>2020-09-20 11:39:50 -0400
committerGitHub <noreply@github.com>2020-09-20 11:39:50 -0400
commit3a698bad1e94d7df4886d9b01d515d63b4d49d53 (patch)
tree0d735fa3747bbd65d45ed952647da42f6c8e373b /test
parente79b47e50ff86b9d0fd7aa504b52040752dd1a88 (diff)
parentdd02f5d601dff3d214b1bf82d6bd62d29364d6b4 (diff)
downloadfpm-3a698bad1e94d7df4886d9b01d515d63b4d49d53.tar.gz
fpm-3a698bad1e94d7df4886d9b01d515d63b4d49d53.zip
Merge pull request #180 from LKedward/recursive_discovery
Recursive source discovery
Diffstat (limited to 'test')
-rw-r--r--test/example_packages/hello_complex/source/farewell_m.f903
-rw-r--r--test/example_packages/hello_complex/source/greet_m.f903
-rw-r--r--test/example_packages/hello_complex/source/subdir/constants.f907
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