From f33bb50d3e15035aee97ef2a9c032f511aab447f Mon Sep 17 00:00:00 2001
From: Brad Richardson <brichardson@structint.com>
Date: Sat, 30 May 2020 17:13:09 -0700
Subject: Move example packages into test folder

---
 hello_complex/.gitignore                       |  1 -
 hello_complex/apps/say_goodbye/say_goodbye.f90 |  7 -------
 hello_complex/apps/say_hello/say_hello.f90     |  7 -------
 hello_complex/fpm.toml                         | 24 ------------------------
 hello_complex/source/farewell_m.f90            | 13 -------------
 hello_complex/source/greet_m.f90               | 13 -------------
 hello_complex/tests/farewell/farewell_test.f90 | 18 ------------------
 hello_complex/tests/greet/greet_test.f90       | 18 ------------------
 8 files changed, 101 deletions(-)
 delete mode 100644 hello_complex/.gitignore
 delete mode 100644 hello_complex/apps/say_goodbye/say_goodbye.f90
 delete mode 100644 hello_complex/apps/say_hello/say_hello.f90
 delete mode 100644 hello_complex/fpm.toml
 delete mode 100644 hello_complex/source/farewell_m.f90
 delete mode 100644 hello_complex/source/greet_m.f90
 delete mode 100644 hello_complex/tests/farewell/farewell_test.f90
 delete mode 100644 hello_complex/tests/greet/greet_test.f90

(limited to 'hello_complex')

diff --git a/hello_complex/.gitignore b/hello_complex/.gitignore
deleted file mode 100644
index a007fea..0000000
--- a/hello_complex/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-build/*
diff --git a/hello_complex/apps/say_goodbye/say_goodbye.f90 b/hello_complex/apps/say_goodbye/say_goodbye.f90
deleted file mode 100644
index 6966e79..0000000
--- a/hello_complex/apps/say_goodbye/say_goodbye.f90
+++ /dev/null
@@ -1,7 +0,0 @@
-program say_goodbye
-    use farewell_m, only: make_farewell
-
-    implicit none
-
-    print *, make_farewell("World")
-end program say_goodbye
diff --git a/hello_complex/apps/say_hello/say_hello.f90 b/hello_complex/apps/say_hello/say_hello.f90
deleted file mode 100644
index cc648f2..0000000
--- a/hello_complex/apps/say_hello/say_hello.f90
+++ /dev/null
@@ -1,7 +0,0 @@
-program say_hello
-    use greet_m, only: make_greeting
-
-    implicit none
-
-    print *, make_greeting("World")
-end program say_hello
diff --git a/hello_complex/fpm.toml b/hello_complex/fpm.toml
deleted file mode 100644
index d185745..0000000
--- a/hello_complex/fpm.toml
+++ /dev/null
@@ -1,24 +0,0 @@
-name = "hello_complex"
-
-[library]
-source-dir="source"
-
-[[executable]]
-name="say_hello"
-source-dir="apps/say_hello"
-main="say_hello.f90"
-
-[[executable]]
-name="say_goodbye"
-source-dir="apps/say_goodbye"
-main="say_goodbye.f90"
-
-[[test]]
-name="greet_test"
-source-dir="tests/greet"
-main="greet_test.f90"
-
-[[test]]
-name="farewell_test"
-source-dir="tests/farewell"
-main="farewell_test.f90"
diff --git a/hello_complex/source/farewell_m.f90 b/hello_complex/source/farewell_m.f90
deleted file mode 100644
index 9fc75b9..0000000
--- a/hello_complex/source/farewell_m.f90
+++ /dev/null
@@ -1,13 +0,0 @@
-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
deleted file mode 100644
index 2372f9a..0000000
--- a/hello_complex/source/greet_m.f90
+++ /dev/null
@@ -1,13 +0,0 @@
-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
diff --git a/hello_complex/tests/farewell/farewell_test.f90 b/hello_complex/tests/farewell/farewell_test.f90
deleted file mode 100644
index 0f21b18..0000000
--- a/hello_complex/tests/farewell/farewell_test.f90
+++ /dev/null
@@ -1,18 +0,0 @@
-program farewell_test
-    use farewell_m, only: make_farewell
-    use iso_fortran_env, only: error_unit, output_unit
-
-    implicit none
-
-    character(len=:), allocatable :: farewell
-
-    allocate(character(len=0) :: farewell)
-    farewell = make_farewell("World")
-
-    if (farewell == "Goodbye, World!") then
-        write(output_unit, *) "Passed"
-    else
-        write(error_unit, *) "Failed"
-        call exit(1)
-    end if
-end program farewell_test
diff --git a/hello_complex/tests/greet/greet_test.f90 b/hello_complex/tests/greet/greet_test.f90
deleted file mode 100644
index 41fa508..0000000
--- a/hello_complex/tests/greet/greet_test.f90
+++ /dev/null
@@ -1,18 +0,0 @@
-program greet_test
-    use greet_m, only: make_greeting
-    use iso_fortran_env, only: error_unit, output_unit
-
-    implicit none
-
-    character(len=:), allocatable :: greeting
-
-    allocate(character(len=0) :: greeting)
-    greeting = make_greeting("World")
-
-    if (greeting == "Hello, World!") then
-        write(output_unit, *) "Passed"
-    else
-        write(error_unit, *) "Failed"
-        call exit(1)
-    end if
-end program greet_test
-- 
cgit v1.2.3