Subject: another two test file

From: Du_Zhi_hui <[email-masked]>
Date: Sat, 12 Oct 1996 22:31:32 +0800 (EAT)

! This is test file 5
PROGRAM main
	REAL a(1000),b(1000),c(1000),d(1000)
	INTEGER ix(1000)
!HPF$  PROCESSORS procs(10)
!HPF$  DISTRIBUTE (CYCLIC) ONTO procs :: a,b,c,d,ix
	a(ix)=b(ix)+c(ix)+d(ix)
END PROGRAM
! the following is the transformation result of test file 5
      program main
      real :: a(1000),b(1000),c(1000),d(1000)
      integer :: ix(1000)
!HPF$      processors procs(10)
!HPF$      distribute  (cyclic) onto  procs :: a,b,c,d,ix
      integer :: temp_index_0
      forall (temp_index_0=0:(1000-1)/1)      a(ix(1+temp_index_0*1)) = &
     &b(ix(1+temp_index_0*1))+c(ix(1+temp_index_0*1))+d(ix(1+temp_index_&
     &0*1))

      end program

! This is test file 6
PROGRAM main
	REAL a(1000,1000),b(1000,1000)
!HPF$ PROCESSORS procs(10)
!HPF$ DISTRIBUTE (BLOCK,*) ONTO procs :: a,b

	DO i=2,1000
		a(i,:) = a(i,:)-(b(i,:)**2)/a(i-1,:)
	ENDDO
END PROGRAM
! the following is the transformation result of test file 6
      program main
      real :: a(1000,1000),b(1000,1000)
!HPF$      processors procs(10)
!HPF$      distribute  (block,*) onto  procs :: a,b
      integer :: temp_index_0
      do  i=2,1000
         forall (temp_index_0=0:(1000-1)/1)         a(i,1+temp_index_0*1&
     &) = a(i,1+temp_index_0*1)-(b(i,1+temp_index_0*1)**2/a(i-1,1+temp_i&
     &ndex_0*1))

      enddo

      end program