aboutsummaryrefslogtreecommitdiff
path: root/test/example_packages/hello_complex_2/src
diff options
context:
space:
mode:
authorLKedward <laurence.kedward@bristol.ac.uk>2020-09-26 11:11:01 +0100
committerLKedward <laurence.kedward@bristol.ac.uk>2020-09-26 11:11:01 +0100
commit04fd3870fb8cbb6014a197b26b71f6e3021ccba1 (patch)
tree8a26b8ead18556feb40239b9f95b61cdb5f91c59 /test/example_packages/hello_complex_2/src
parent124e696ac9440ff482d605d8127c1c77e4e2be97 (diff)
downloadfpm-04fd3870fb8cbb6014a197b26b71f6e3021ccba1.tar.gz
fpm-04fd3870fb8cbb6014a197b26b71f6e3021ccba1.zip
Add: example package with program discovery
Diffstat (limited to 'test/example_packages/hello_complex_2/src')
-rw-r--r--test/example_packages/hello_complex_2/src/farewell_m.f9013
-rw-r--r--test/example_packages/hello_complex_2/src/greet_m.f9013
2 files changed, 26 insertions, 0 deletions
diff --git a/test/example_packages/hello_complex_2/src/farewell_m.f90 b/test/example_packages/hello_complex_2/src/farewell_m.f90
new file mode 100644
index 0000000..9fc75b9
--- /dev/null
+++ b/test/example_packages/hello_complex_2/src/farewell_m.f90
@@ -0,0 +1,13 @@
+module farewell_m
+ implicit none
+ private
+
+ public :: make_farewell
+contains
+ function make_farewell(name) result(greeting)
+ character(len=*), intent(in) :: name
+ character(len=:), allocatable :: greeting
+
+ greeting = "Goodbye, " // name // "!"
+ end function make_farewell
+end module farewell_m
diff --git a/test/example_packages/hello_complex_2/src/greet_m.f90 b/test/example_packages/hello_complex_2/src/greet_m.f90
new file mode 100644
index 0000000..2372f9a
--- /dev/null
+++ b/test/example_packages/hello_complex_2/src/greet_m.f90
@@ -0,0 +1,13 @@
+module greet_m
+ implicit none
+ private
+
+ public :: make_greeting
+contains
+ function make_greeting(name) result(greeting)
+ character(len=*), intent(in) :: name
+ character(len=:), allocatable :: greeting
+
+ greeting = "Hello, " // name // "!"
+ end function make_greeting
+end module greet_m