diff options
Diffstat (limited to 'test/example_packages/hello_complex_2')
11 files changed, 0 insertions, 103 deletions
diff --git a/test/example_packages/hello_complex_2/.gitignore b/test/example_packages/hello_complex_2/.gitignore deleted file mode 100644 index a007fea..0000000 --- a/test/example_packages/hello_complex_2/.gitignore +++ /dev/null @@ -1 +0,0 @@ -build/* diff --git a/test/example_packages/hello_complex_2/app/app_mod.f90 b/test/example_packages/hello_complex_2/app/app_mod.f90 deleted file mode 100644 index d69a228..0000000 --- a/test/example_packages/hello_complex_2/app/app_mod.f90 +++ /dev/null @@ -1,5 +0,0 @@ -module app_mod -implicit none - - -end module app_mod diff --git a/test/example_packages/hello_complex_2/app/say_goodbye.f90 b/test/example_packages/hello_complex_2/app/say_goodbye.f90 deleted file mode 100644 index db12cbf..0000000 --- a/test/example_packages/hello_complex_2/app/say_goodbye.f90 +++ /dev/null @@ -1,8 +0,0 @@ -program say_goodbye - use farewell_m, only: make_farewell - use app_mod - - implicit none - - print *, make_farewell("World") -end program say_goodbye diff --git a/test/example_packages/hello_complex_2/app/say_hello/app_hello_mod.f90 b/test/example_packages/hello_complex_2/app/say_hello/app_hello_mod.f90 deleted file mode 100644 index c5795cb..0000000 --- a/test/example_packages/hello_complex_2/app/say_hello/app_hello_mod.f90 +++ /dev/null @@ -1,6 +0,0 @@ -module app_hello_mod -implicit none - -integer :: hello_int = 42 - -end module app_hello_mod diff --git a/test/example_packages/hello_complex_2/app/say_hello/say_Hello.f90 b/test/example_packages/hello_complex_2/app/say_hello/say_Hello.f90 deleted file mode 100644 index 3b69ba7..0000000 --- a/test/example_packages/hello_complex_2/app/say_hello/say_Hello.f90 +++ /dev/null @@ -1,8 +0,0 @@ -program say_Hello - use greet_m, only: make_greeting - use app_hello_mod - - implicit none - - print *, make_greeting("World") -end program say_Hello diff --git a/test/example_packages/hello_complex_2/fpm.toml b/test/example_packages/hello_complex_2/fpm.toml deleted file mode 100644 index 28c91d8..0000000 --- a/test/example_packages/hello_complex_2/fpm.toml +++ /dev/null @@ -1,6 +0,0 @@ -name = "hello_complex" - -[[executable]] -name="say_hello_world" -source-dir="app/say_hello" -main="say_Hello.f90" diff --git a/test/example_packages/hello_complex_2/src/farewell_m.f90 b/test/example_packages/hello_complex_2/src/farewell_m.f90 deleted file mode 100644 index 9fc75b9..0000000 --- a/test/example_packages/hello_complex_2/src/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/test/example_packages/hello_complex_2/src/greet_m.f90 b/test/example_packages/hello_complex_2/src/greet_m.f90 deleted file mode 100644 index 2372f9a..0000000 --- a/test/example_packages/hello_complex_2/src/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/test/example_packages/hello_complex_2/test/farewell_test.f90 b/test/example_packages/hello_complex_2/test/farewell_test.f90 deleted file mode 100644 index dbe98d6..0000000 --- a/test/example_packages/hello_complex_2/test/farewell_test.f90 +++ /dev/null @@ -1,19 +0,0 @@ -program farewell_test - use farewell_m, only: make_farewell - use test_mod - 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/test/example_packages/hello_complex_2/test/greet_test.f90 b/test/example_packages/hello_complex_2/test/greet_test.f90 deleted file mode 100644 index 38e9be0..0000000 --- a/test/example_packages/hello_complex_2/test/greet_test.f90 +++ /dev/null @@ -1,19 +0,0 @@ -program greet_test - use greet_m, only: make_greeting - use test_mod - 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 diff --git a/test/example_packages/hello_complex_2/test/test_mod.f90 b/test/example_packages/hello_complex_2/test/test_mod.f90 deleted file mode 100644 index edb2626..0000000 --- a/test/example_packages/hello_complex_2/test/test_mod.f90 +++ /dev/null @@ -1,5 +0,0 @@ -module test_mod -implicit none - - -end module test_mod |