Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/goacc/update-if_present-2.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
/* Test invalid usages of the if_present clause. */ #pragma acc routine gang if_present /* { dg-error "'if_present' is not valid" } */ void t1 () { int a, b, c[10]; #pragma acc enter data copyin(a) if_present /* { dg-error "'if_present' is not valid" } */ #pragma acc exit data copyout(a) if_present /* { dg-error "'if_present' is not valid" } */ #pragma acc data copy(a) if_present /* { dg-error "'if_present' is not valid" } */ { } #pragma acc declare create(c) if_present /* { dg-error "'if_present' is not valid" } */ #pragma acc init if_present #pragma acc shutdown if_present } void t2 () { int a, b, c[10]; #pragma acc update self(a) #pragma acc parallel #pragma acc loop if_present /* { dg-error "'if_present' is not valid" } */ for (b = 1; b < 10; b++) ; #pragma acc end parallel #pragma acc kernels loop if_present /* { dg-error "'if_present' is not valid" } */ for (b = 1; b < 10; b++) ; #pragma acc parallel loop if_present /* { dg-error "'if_present' is not valid" } */ for (b = 1; b < 10; b++) ; }