RosettaCodeData/Task/Hostname/Fortran/hostname-1.f

6 lines
103 B
Forth

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