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