PROGRAM piste
  IMPLICIT NONE
  INTEGER :: n
  REAL, DIMENSION(:), ALLOCATABLE :: a, b
  REAL :: d

  !HPF$ DISTRIBUTE A(BLOCK)
  !HPF$ ALIGN B WITH A

  WRITE (*,*) 'Input the number of points:'
  READ (*,*) n
  ALLOCATE (a(n), b(n))
  a = 1.0
  b = 2.0
  d = SUM(a*b)
  WRITE (*,*) d
END PROGRAM piste