Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/c-c++-common/goacc/update-if_present-2.c @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 /* Test invalid usages of the if_present clause. */
2
3 #pragma acc routine gang if_present /* { dg-error "'if_present' is not valid" } */
4 void
5 t1 ()
6 {
7 int a, b, c[10];
8
9 #pragma acc enter data copyin(a) if_present /* { dg-error "'if_present' is not valid" } */
10 #pragma acc exit data copyout(a) if_present /* { dg-error "'if_present' is not valid" } */
11
12 #pragma acc data copy(a) if_present /* { dg-error "'if_present' is not valid" } */
13 {
14 }
15
16 #pragma acc declare create(c) if_present /* { dg-error "'if_present' is not valid" } */
17
18 #pragma acc init if_present
19 #pragma acc shutdown if_present
20 }
21
22 void
23 t2 ()
24 {
25 int a, b, c[10];
26
27 #pragma acc update self(a)
28 #pragma acc parallel
29 #pragma acc loop if_present /* { dg-error "'if_present' is not valid" } */
30 for (b = 1; b < 10; b++)
31 ;
32 #pragma acc end parallel
33
34 #pragma acc kernels loop if_present /* { dg-error "'if_present' is not valid" } */
35 for (b = 1; b < 10; b++)
36 ;
37
38 #pragma acc parallel loop if_present /* { dg-error "'if_present' is not valid" } */
39 for (b = 1; b < 10; b++)
40 ;
41 }
42