aboutsummaryrefslogtreecommitdiff
path: root/circular_example/src/greet_m.f90
diff options
context:
space:
mode:
Diffstat (limited to 'circular_example/src/greet_m.f90')
-rw-r--r--circular_example/src/greet_m.f9013
1 files changed, 13 insertions, 0 deletions
diff --git a/circular_example/src/greet_m.f90 b/circular_example/src/greet_m.f90
new file mode 100644
index 0000000..2372f9a
--- /dev/null
+++ b/circular_example/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