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