program stdio
    implicit none
    character(len=16) :: name
    read (*,*) name
    print *, 'Hello, ', name
end program stdio