Array assignment gathering to all
!HPF$ PROCESSORS P(4)
REAL A(50, 50), B(50), C(50)
!HPF$ DISTRIBUTE A(*, BLOCK) ONTO P
!HPF$ DISTRIBUTE B(BLOCK) ONTO P
!HPF$ ALIGN C(I) WITH A(I, *)
C = B
C has replicated, collapsed alignment.
Communication in emitted SPMD program, might be implemented with MPI_ALLGATHER.