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