1! Verify the invalid gang, worker, vector parallelism error messages. 2 3program np 4 integer, parameter :: n = 100 5 integer :: i, j, k 6 7 !$acc parallel loop gang 8 do i = 1, n 9 !$acc loop gang ! { dg-error "inner loop uses same OpenACC parallelism as containing loop" } 10 do j = 1, n 11 end do 12 13 !$acc loop worker 14 do j = 1, n 15 end do 16 17 !$acc loop vector 18 do j = 1, n 19 end do 20 end do 21 22 !$acc parallel loop worker 23 do i = 1, n 24 !$acc loop gang ! { dg-error "incorrectly nested OpenACC loop parallelism" } 25 do j = 1, n 26 end do 27 28 !$acc loop worker ! { dg-error "inner loop uses same OpenACC parallelism as containing loop" } 29 do j = 1, n 30 end do 31 32 !$acc loop vector 33 do j = 1, n 34 end do 35 end do 36 37 !$acc parallel loop vector 38 do i = 1, n 39 !$acc loop gang ! { dg-error "incorrectly nested OpenACC loop parallelism" } 40 do j = 1, n 41 end do 42 43 !$acc loop worker ! { dg-error "incorrectly nested OpenACC loop parallelism" } 44 do j = 1, n 45 end do 46 47 !$acc loop vector ! { dg-error "inner loop uses same OpenACC parallelism as containing loop" } 48 do j = 1, n 49 end do 50 end do 51end program np 52