1! { dg-do compile }
2
3! OpenACC 2.0 allows nested parallel/kernels regions, but this is not yet
4! supported.
5
6program test
7  implicit none
8
9  integer :: i
10
11  !$acc parallel
12    !$acc kernels ! { dg-bogus ".kernels. construct inside of .parallel. region" "not implemented" { xfail *-*-* } }
13    !$acc end kernels
14  !$acc end parallel
15
16  !$acc parallel
17    !$acc parallel ! { dg-bogus ".parallel. construct inside of .parallel. region" "not implemented" { xfail *-*-* } }
18    !$acc end parallel
19  !$acc end parallel
20
21  !$acc parallel
22    !$acc parallel ! { dg-bogus ".parallel. construct inside of .parallel. region" "not implemented" { xfail *-*-* } }
23    !$acc end parallel
24    !$acc kernels ! { dg-bogus ".kernels. construct inside of .parallel. region" "not implemented" { xfail *-*-* } }
25    !$acc end kernels
26  !$acc end parallel
27
28  !$acc kernels
29    !$acc kernels ! { dg-bogus ".kernels. construct inside of .kernels. region" "not implemented" { xfail *-*-* } }
30    !$acc end kernels
31  !$acc end kernels
32
33  !$acc kernels
34    !$acc parallel ! { dg-bogus ".parallel. construct inside of .kernels. region" "not implemented" { xfail *-*-* } }
35    !$acc end parallel
36  !$acc end kernels
37
38  !$acc kernels
39    !$acc parallel ! { dg-bogus ".parallel. construct inside of .kernels. region" "not implemented" { xfail *-*-* } }
40    !$acc end parallel
41    !$acc kernels ! { dg-bogus ".kernels. construct inside of .kernels. region" "not implemented" { xfail *-*-* } }
42    !$acc end kernels
43  !$acc end kernels
44
45  !$acc parallel
46    !$acc data ! { dg-error ".data. construct inside of .parallel. region" }
47    !$acc end data
48  !$acc end parallel
49
50  !$acc kernels
51    !$acc data ! { dg-error ".data. construct inside of .kernels. region" }
52    !$acc end data
53  !$acc end kernels
54
55end program test
56