1program test
2  implicit none
3  integer :: i, j
4
5  !$acc kernels loop gang
6  DO i = 1,10
7    !$acc kernels loop gang ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
8    DO j = 1,10
9    ENDDO
10  ENDDO
11
12  !$acc kernels loop worker
13  DO i = 1,10
14    !$acc kernels loop worker ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
15    DO j = 1,10
16    ENDDO
17    !$acc kernels loop gang ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
18    DO j = 1,10
19    ENDDO
20  ENDDO
21
22  !$acc kernels loop vector
23  DO i = 1,10
24    !$acc kernels loop vector ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
25    DO j = 1,10
26    ENDDO
27    !$acc kernels loop worker ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
28    DO j = 1,10
29    ENDDO
30    !$acc kernels loop gang ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
31    DO j = 1,10
32    ENDDO
33  ENDDO
34end
35