!HPF$ INDEPENDENT
DO i = 1, n
　　!HPF$ ON HOME( ix(i) )
　　x(i) = y(ix(i)) - y(iy(i))

END DO

!HPF$ INDEPENDENT, NEW(xinc), REDUCTION(x)
DO i = 1, n
　　CALL sub(i, xinc)
　　x = x + xinc
END DO

!HPF$ TASKING
　　!HPF$ ON HOME(p(1:8))
　　CALL foo(x,y)
　　!HPF$ ON HOME(p(9:16))
　　CALL bar(x)
!HPF$ END