5 lines
103 B
Forth
5 lines
103 B
Forth
program HostTest
|
|
character(len=128) :: name
|
|
call hostnm(name)
|
|
print *, name
|
|
end program HostTest
|