From b5b16cf826d468e79b4087500192a4a9e07c140f Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Wed, 14 Oct 2020 09:24:55 -0500
Subject: Better organize example packages and bootstrap tests

---
 example_packages/hello_complex/source/farewell_m.f90       | 14 ++++++++++++++
 example_packages/hello_complex/source/greet_m.f90          | 14 ++++++++++++++
 example_packages/hello_complex/source/subdir/constants.f90 |  7 +++++++
 3 files changed, 35 insertions(+)
 create mode 100644 example_packages/hello_complex/source/farewell_m.f90
 create mode 100644 example_packages/hello_complex/source/greet_m.f90
 create mode 100644 example_packages/hello_complex/source/subdir/constants.f90

(limited to 'example_packages/hello_complex/source')

diff --git a/example_packages/hello_complex/source/farewell_m.f90 b/example_packages/hello_complex/source/farewell_m.f90
new file mode 100644
index 0000000..fbc45ed
--- /dev/null
+++ b/example_packages/hello_complex/source/farewell_m.f90
@@ -0,0 +1,14 @@
+module farewell_m
+    use subdir_constants, only: FAREWELL_STR
+    implicit none
+    private
+
+    public :: make_farewell
+contains
+    function make_farewell(name) result(greeting)
+        character(len=*), intent(in) :: name
+        character(len=:), allocatable :: greeting
+
+        greeting = FAREWELL_STR // name // "!"
+    end function make_farewell
+end module farewell_m
diff --git a/example_packages/hello_complex/source/greet_m.f90 b/example_packages/hello_complex/source/greet_m.f90
new file mode 100644
index 0000000..38afd08
--- /dev/null
+++ b/example_packages/hello_complex/source/greet_m.f90
@@ -0,0 +1,14 @@
+module greet_m
+    use subdir_constants, only: GREET_STR
+    implicit none
+    private
+
+    public :: make_greeting
+contains
+    function make_greeting(name) result(greeting)
+        character(len=*), intent(in) :: name
+        character(len=:), allocatable :: greeting
+
+        greeting = GREET_STR // name // "!"
+    end function make_greeting
+end module greet_m
diff --git a/example_packages/hello_complex/source/subdir/constants.f90 b/example_packages/hello_complex/source/subdir/constants.f90
new file mode 100644
index 0000000..59d6e5f
--- /dev/null
+++ b/example_packages/hello_complex/source/subdir/constants.f90
@@ -0,0 +1,7 @@
+module subdir_constants
+implicit none
+
+character(*), parameter :: GREET_STR = 'Hello, '
+character(*), parameter :: FAREWELL_STR = 'Goodbye, '
+
+end module subdir_constants
-- 
cgit v1.2.3