2 ! { dg-additional-options "-O2" }
3 ! { dg-additional-options "-ftree-parallelize-loops=2" }
5 ! Constant bound, vector addition.
8 integer, parameter :: n = 1000
9 integer, dimension (0:n-1) :: a, b, c
19 integer, parameter :: n = 1000
20 integer, parameter :: distrib = 10
21 integer, dimension (0:n-1) :: a, b, c
25 do j = 0, ((n / distrib) -1)
29 b(k) = MODULO ((k * 3), 7)
37 if (c(i) .ne. (i + MODULO ((i * 3), 7))) call abort