blob: 0f21b18015b441209ee2607389c6052760c7a695 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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
|
