diff options
| author | urbanjost <urbanjost@comcast.net> | 2020-10-02 23:46:21 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-10-02 23:46:21 -0700 |
| commit | 9369cc27ffd74cf8621928f5c80d132a754f648a (patch) | |
| tree | 6bf8d135e0ddcbdb2354ac7344f17f717d935c52 /test/example_packages/hello_complex_2/src/greet_m.f90 | |
| parent | 07c533068b7055d899e2aa829f1cb90ff058a09f (diff) | |
| parent | 75c1da54b337a08f8205db19e49606e30b4ce2bb (diff) | |
| download | fpm-9369cc27ffd74cf8621928f5c80d132a754f648a.tar.gz fpm-9369cc27ffd74cf8621928f5c80d132a754f648a.zip | |
Merge branch 'master' into NEW
Diffstat (limited to 'test/example_packages/hello_complex_2/src/greet_m.f90')
| -rw-r--r-- | test/example_packages/hello_complex_2/src/greet_m.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
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 |