Mercurial > hg > CbC > CbC_gcc

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 /* Test invalid usages of the if_present clause. */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 #pragma acc routine gang if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 void
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 t1 ()
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 int a, b, c[10];
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 #pragma acc enter data copyin(a) if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 #pragma acc exit data copyout(a) if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 #pragma acc data copy(a) if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 #pragma acc declare create(c) if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 #pragma acc init if_present
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 #pragma acc shutdown if_present
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 void
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 t2 ()
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 {
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 int a, b, c[10];
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 #pragma acc update self(a)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 #pragma acc parallel
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 #pragma acc loop if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 for (b = 1; b < 10; b++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31 ;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
32 #pragma acc end parallel
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
33
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
34 #pragma acc kernels loop if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
35 for (b = 1; b < 10; b++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
36 ;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
37
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
38 #pragma acc parallel loop if_present /* { dg-error "'if_present' is not valid" } */
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
39 for (b = 1; b < 10; b++)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
40 ;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
41 }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
42