blob: 41fa50878e25bbb18e06250437942788f97cddca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
program greet_test
use greet_m, only: make_greeting
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
|
