      program transfer

      integer a(10), ha(10)
cmf$  layout ha(:host)

      call cmf_random (a,10)
      ha = a
      print *, ha
      end
