| ! { dg-do compile } |
| |
| ! OpenACC 2.0 allows nested parallel/kernels regions, but this is not yet |
| ! supported. |
| |
| program test |
| implicit none |
| |
| integer :: i |
| |
| !$acc parallel |
| !$acc kernels ! { dg-bogus ".kernels. construct inside of .parallel. region" "not implemented" { xfail *-*-* } } |
| !$acc end kernels |
| !$acc end parallel |
| |
| !$acc parallel |
| !$acc parallel ! { dg-bogus ".parallel. construct inside of .parallel. region" "not implemented" { xfail *-*-* } } |
| !$acc end parallel |
| !$acc end parallel |
| |
| !$acc parallel |
| !$acc parallel ! { dg-bogus ".parallel. construct inside of .parallel. region" "not implemented" { xfail *-*-* } } |
| !$acc end parallel |
| !$acc kernels ! { dg-bogus ".kernels. construct inside of .parallel. region" "not implemented" { xfail *-*-* } } |
| !$acc end kernels |
| !$acc end parallel |
| |
| !$acc kernels |
| !$acc kernels ! { dg-bogus ".kernels. construct inside of .kernels. region" "not implemented" { xfail *-*-* } } |
| !$acc end kernels |
| !$acc end kernels |
| |
| !$acc kernels |
| !$acc parallel ! { dg-bogus ".parallel. construct inside of .kernels. region" "not implemented" { xfail *-*-* } } |
| !$acc end parallel |
| !$acc end kernels |
| |
| !$acc kernels |
| !$acc parallel ! { dg-bogus ".parallel. construct inside of .kernels. region" "not implemented" { xfail *-*-* } } |
| !$acc end parallel |
| !$acc kernels ! { dg-bogus ".kernels. construct inside of .kernels. region" "not implemented" { xfail *-*-* } } |
| !$acc end kernels |
| !$acc end kernels |
| |
| !$acc parallel |
| !$acc data ! { dg-error ".data. construct inside of .parallel. region" } |
| !$acc end data |
| !$acc end parallel |
| |
| !$acc kernels |
| !$acc data ! { dg-error ".data. construct inside of .kernels. region" } |
| !$acc end data |
| !$acc end kernels |
| |
| end program test |