From 7ec56260921d73a01039cd881e7ce278d59931f9 Mon Sep 17 00:00:00 2001
From: Brad Richardson <brichardson@structint.com>
Date: Mon, 13 Apr 2020 20:08:16 -0500
Subject: Create a complex project to test

---
 hello_complex/source/farewell_m.f90 | 13 +++++++++++++
 hello_complex/source/greet_m.f90    | 13 +++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 hello_complex/source/farewell_m.f90
 create mode 100644 hello_complex/source/greet_m.f90

(limited to 'hello_complex/source')

diff --git a/hello_complex/source/farewell_m.f90 b/hello_complex/source/farewell_m.f90
new file mode 100644
index 0000000..9fc75b9
--- /dev/null
+++ b/hello_complex/source/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/hello_complex/source/greet_m.f90 b/hello_complex/source/greet_m.f90
new file mode 100644
index 0000000..2372f9a
--- /dev/null
+++ b/hello_complex/source/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
-- 
cgit v1.2.3