	program main
	integer::a(16,16), b(16,16),c(2),i,j
!HPF$   processors p(2,2)
!HPF$   distribute a(block,block) onto p
!HPF$   distribute b(block,block) onto p

        forall(i=1:16,j=1:16) a(i,j)=i+j
        forall(i=1:16,j=1:16) b(i,j)=1
!        forall(i=2:16) a(i,2:16)=a(i-1,1:15)

	c(1)=1
	c(2)=1
!        forall(i=2:a(1,1)+sum(c),j=2:16)   a(i,j)=a(i,j-1)
        forall(i=2:16,j=2:16)   a(i,j)=a(i,j-1)
        do i=1,16
        write ( *,10) (a(i,j),j=1,16)
        end do

        forall(i=2:16,j=2:16)   a(i,j)=b(i,j-1)
	print *
        do i=1,16
        write ( *,10) (a(i,j),j=1,16)
        end do


10	FORMAT (20I4)

        end program
