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