      program test
      real A (n), RA(m)
cmf$  layout RA(:serial)
      RA (2:m) = A(1:m-1)
      end
