3 ! { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting
4 ! aspects of that functionality.
7 integer :: a(3,3,3), ll
, lll
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 }
14 if (any(a(1:3,1:3,1:3).ne
.1)) STOP 1
25 if (a(1,1,1).ne
.2) STOP 2