Mercurial > hg > CbC > CbC_gcc

annotate libgomp/testsuite/libgomp.c/target-30.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 extern void abort (void);
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 #pragma omp declare target
kono
parents:
diff changeset
4 int v = 6;
kono
parents:
diff changeset
5 #pragma omp end declare target
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 int
kono
parents:
diff changeset
8 main ()
kono
parents:
diff changeset
9 {
kono
parents:
diff changeset
10 #pragma omp target /* predetermined map(tofrom: v) */
kono
parents:
diff changeset
11 v++;
kono
parents:
diff changeset
12 #pragma omp target update from (v)
kono
parents:
diff changeset
13 if (v != 7)
kono
parents:
diff changeset
14 abort ();
kono
parents:
diff changeset
15 #pragma omp parallel private (v) num_threads (1)
kono
parents:
diff changeset
16 {
kono
parents:
diff changeset
17 #pragma omp target /* predetermined firstprivate(v) */
kono
parents:
diff changeset
18 v++;
kono
parents:
diff changeset
19 }
kono
parents:
diff changeset
20 #pragma omp target update from (v)
kono
parents:
diff changeset
21 if (v != 7)
kono
parents:
diff changeset
22 abort ();
kono
parents:
diff changeset
23 return 0;
kono
parents:
diff changeset
24 }