Mercurial > hg > CbC > CbC_gcc
diff gcc/testsuite/c-c++-common/goacc/executeables-1.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/gcc/testsuite/c-c++-common/goacc/executeables-1.c Fri Oct 27 22:46:09 2017 +0900 @@ -0,0 +1,74 @@ +/* { dg-do compile } */ + +void +foo (void) +{ + const int N = 32; + float x[N], y[N]; + int flag = 0; + + if (flag) +#pragma acc update host (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 1; + + while (flag) +#pragma acc update host (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 2; + +#pragma acc enter data create (x[0:N]) + { + if (flag) +#pragma acc update host (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 1; + } + + if (flag) + while (flag) +#pragma acc update host (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 2; + + if (flag) +#pragma acc wait /* { dg-error "may only be used in compound statements" } */ + flag = 1; + + while (flag) +#pragma acc wait /* { dg-error "may only be used in compound statements" } */ + flag = 2; + +#pragma acc enter data create (x[0:N]) + { + if (flag) +#pragma acc wait /* { dg-error "may only be used in compound statements" } */ + flag = 1; + } + + if (flag) +#pragma acc enter data create (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 1; + + while (flag) +#pragma acc enter data create (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 2; + +#pragma acc enter data create (x[0:N]) + { + if (flag) +#pragma acc enter data create (y[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 1; + } + + if (flag) +#pragma acc exit data delete (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 1; + + while (flag) +#pragma acc exit data delete (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 2; + +#pragma acc enter data create (x[0:N]) + { + if (flag) +#pragma acc exit data delete (x[0:N]) /* { dg-error "may only be used in compound statements" } */ + flag = 1; + } +}