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