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