diff options
| author | Laurence Kedward <laurence.kedward@bristol.ac.uk> | 2020-12-08 15:44:36 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-12-08 15:44:36 +0000 |
| commit | 849db65f153d7019b1e6286df76ec38e49d1e8ac (patch) | |
| tree | 4e2fa9267ed746503ed90c58cd8b801fcfbf4cb3 /example_packages/hello_complex_2 | |
| parent | 1b72fd70353845d23f92d9fc98ef4d0a487eb4fe (diff) | |
| parent | db93172961aca4f4ba990264d2accfa2dd44a1d1 (diff) | |
| download | fpm-849db65f153d7019b1e6286df76ec38e49d1e8ac.tar.gz fpm-849db65f153d7019b1e6286df76ec38e49d1e8ac.zip | |
Merge pull request #267 from LKedward/fix-link-objects
Fix enumeration of non-library link objects
Diffstat (limited to 'example_packages/hello_complex_2')
3 files changed, 9 insertions, 2 deletions
diff --git a/example_packages/hello_complex_2/app/say_hello/app_extra_mod.f90 b/example_packages/hello_complex_2/app/say_hello/app_extra_mod.f90 new file mode 100644 index 0000000..5059e22 --- /dev/null +++ b/example_packages/hello_complex_2/app/say_hello/app_extra_mod.f90 @@ -0,0 +1,6 @@ +module app_extra_mod +implicit none + +character(len=5) :: greet_object = "World" + +end module app_extra_mod diff --git a/example_packages/hello_complex_2/app/say_hello/app_hello_mod.f90 b/example_packages/hello_complex_2/app/say_hello/app_hello_mod.f90 index c5795cb..e44edd7 100644 --- a/example_packages/hello_complex_2/app/say_hello/app_hello_mod.f90 +++ b/example_packages/hello_complex_2/app/say_hello/app_hello_mod.f90 @@ -1,4 +1,5 @@ module app_hello_mod +use app_extra_mod, only: greet_object implicit none integer :: hello_int = 42 diff --git a/example_packages/hello_complex_2/app/say_hello/say_Hello.f90 b/example_packages/hello_complex_2/app/say_hello/say_Hello.f90 index 3b69ba7..3ebaebb 100644 --- a/example_packages/hello_complex_2/app/say_hello/say_Hello.f90 +++ b/example_packages/hello_complex_2/app/say_hello/say_Hello.f90 @@ -1,8 +1,8 @@ program say_Hello use greet_m, only: make_greeting - use app_hello_mod + use app_hello_mod, only: greet_object implicit none - print *, make_greeting("World") + print *, make_greeting(greet_object) end program say_Hello |