program HostTest
  character(len=128) :: name
  call hostnm(name)
  print *, name
end program HostTest