      program simple1
      real ha(1:20), a(1:20), b(5:17)
cmf$  layout ha(:host)
      a = 1
      b = 0
      a(6:13) = b(7:14)
      ha = a
      print 5, ha
  5   format (5f10.5)
      print *, ' '
      print *, ' a(1:20 = 1, b(5:17) = 0, a(6:13) = b(7:14) '
      print *, ' '
      print *, 'Results should be 1 1 1 1 1 | 0 0 0 0 0'
      print *, '                  0 0 0 1 1 | 1 1 1 1 1'
      end
