example_packages/hello_complex_2/test/greet_test.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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