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