aboutsummaryrefslogtreecommitdiff
path: root/test/example_packages/hello_complex/source
diff options
context:
space:
mode:
Diffstat (limited to 'test/example_packages/hello_complex/source')
-rw-r--r--test/example_packages/hello_complex/source/farewell_m.f9014
-rw-r--r--test/example_packages/hello_complex/source/greet_m.f9014
-rw-r--r--test/example_packages/hello_complex/source/subdir/constants.f907
3 files changed, 0 insertions, 35 deletions
diff --git a/test/example_packages/hello_complex/source/farewell_m.f90 b/test/example_packages/hello_complex/source/farewell_m.f90
deleted file mode 100644
index fbc45ed..0000000
--- a/test/example_packages/hello_complex/source/farewell_m.f90
+++ /dev/null
@@ -1,14 +0,0 @@
-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/test/example_packages/hello_complex/source/greet_m.f90 b/test/example_packages/hello_complex/source/greet_m.f90
deleted file mode 100644
index 38afd08..0000000
--- a/test/example_packages/hello_complex/source/greet_m.f90
+++ /dev/null
@@ -1,14 +0,0 @@
-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/test/example_packages/hello_complex/source/subdir/constants.f90 b/test/example_packages/hello_complex/source/subdir/constants.f90
deleted file mode 100644
index 59d6e5f..0000000
--- a/test/example_packages/hello_complex/source/subdir/constants.f90
+++ /dev/null
@@ -1,7 +0,0 @@
-module subdir_constants
-implicit none
-
-character(*), parameter :: GREET_STR = 'Hello, '
-character(*), parameter :: FAREWELL_STR = 'Goodbye, '
-
-end module subdir_constants