3 ! { dg-additional-options "-fcheck=bounds" }
6 integer, parameter :: n
= 8
12 !$omp parallel workshare
13 !$omp parallel default(shared)
16 x(i
) = x(i
) * y(9) ! { dg-warning "is out of bounds" }
20 !$omp end parallel workshare
23 !$omp parallel workshare
24 !$omp parallel default(shared)
25 !$omp do schedule(static)
27 x(i
) = x(i
) * y(9) ! { dg-warning "is out of bounds" }
31 !$omp end parallel workshare
34 !$omp parallel workshare
35 !$omp parallel default(shared)
36 !$omp do schedule(static, 2)
38 x(i
) = x(i
) * y(9) ! { dg-warning "is out of bounds" }
42 !$omp end parallel workshare
45 !$omp parallel workshare
46 !$omp parallel default(shared)
47 !$omp do schedule(dynamic, 3)
49 x(i
) = x(i
) * y(9) ! { dg-warning "is out of bounds" }
53 !$omp end parallel workshare