1! { dg-do run }
2
3! { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting
4! aspects of that functionality.
5
6program foo
7  integer :: a(3,3,3), ll, lll
8
9  a = 1
10
11  !$acc parallel num_gangs(1) num_workers(2)
12  ! { dg-warning "region is worker partitioned but does not contain worker partitioned code" "" { target *-*-* } .-1 }
13
14  if (any(a(1:3,1:3,1:3).ne.1)) STOP 1
15
16  do ll=1,3
17
18     !$acc loop vector
19     do lll=1,3
20        a(1,ll,lll) = 2
21     enddo
22
23  enddo
24
25  if (a(1,1,1).ne.2) STOP 2
26
27  !$acc end parallel
28
29end program foo
30