2 ! { dg-additional-options "-O2" }
3 ! { dg-additional-options "-ftree-parallelize-loops=2" }
5 ! Variable bound, vector addition.
8 integer, intent(in
) :: nr
9 integer, parameter :: n
= 1000
10 integer, dimension (0:n
-1) :: a
, b
, c
20 integer, parameter :: n
= 1000
21 integer, parameter :: distrib
= 10
22 integer, dimension (0:n
-1) :: a
, b
, c
26 do j
= 0, ((n
/ distrib
) -1)
30 b(k
) = MODULO ((k
* 3), 7)
38 if (c(i
) .ne
. (i
+ MODULO ((i
* 3), 7))) STOP 1