Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/gomp/if-1.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 1830386684a0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-do compile } */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 void
kono
parents:
diff changeset
4 foo (int a, int b, int *p, int *q)
kono
parents:
diff changeset
5 {
kono
parents:
diff changeset
6 int i;
kono
parents:
diff changeset
7 #pragma omp parallel if (a)
kono
parents:
diff changeset
8 ;
kono
parents:
diff changeset
9 #pragma omp parallel if (parallel:a)
kono
parents:
diff changeset
10 ;
kono
parents:
diff changeset
11 #pragma omp parallel for simd if (a)
kono
parents:
diff changeset
12 for (i = 0; i < 16; i++)
kono
parents:
diff changeset
13 ;
kono
parents:
diff changeset
14 #pragma omp parallel for simd if (parallel : a)
kono
parents:
diff changeset
15 for (i = 0; i < 16; i++)
kono
parents:
diff changeset
16 ;
kono
parents:
diff changeset
17 #pragma omp task if (a)
kono
parents:
diff changeset
18 ;
kono
parents:
diff changeset
19 #pragma omp task if (task: a)
kono
parents:
diff changeset
20 ;
kono
parents:
diff changeset
21 #pragma omp taskloop if (a)
kono
parents:
diff changeset
22 for (i = 0; i < 16; i++)
kono
parents:
diff changeset
23 ;
kono
parents:
diff changeset
24 #pragma omp taskloop if (taskloop : a)
kono
parents:
diff changeset
25 for (i = 0; i < 16; i++)
kono
parents:
diff changeset
26 ;
kono
parents:
diff changeset
27 #pragma omp target if (a)
kono
parents:
diff changeset
28 ;
kono
parents:
diff changeset
29 #pragma omp target if (target: a)
kono
parents:
diff changeset
30 ;
kono
parents:
diff changeset
31 #pragma omp target teams distribute parallel for simd if (a)
kono
parents:
diff changeset
32 for (i = 0; i < 16; i++)
kono
parents:
diff changeset
33 ;
kono
parents:
diff changeset
34 #pragma omp target teams distribute parallel for simd if (parallel : a) if (target: b)
kono
parents:
diff changeset
35 for (i = 0; i < 16; i++)
kono
parents:
diff changeset
36 ;
kono
parents:
diff changeset
37 #pragma omp target data if (a) map (p[0:2])
kono
parents:
diff changeset
38 ;
kono
parents:
diff changeset
39 #pragma omp target data if (target data: a) map (p[0:2])
kono
parents:
diff changeset
40 ;
kono
parents:
diff changeset
41 #pragma omp target enter data if (a) map (to: p[0:2])
kono
parents:
diff changeset
42 #pragma omp target enter data if (target enter data: a) map (to: p[0:2])
kono
parents:
diff changeset
43 #pragma omp target exit data if (a) map (from: p[0:2])
kono
parents:
diff changeset
44 #pragma omp target exit data if (target exit data: a) map (from: p[0:2])
kono
parents:
diff changeset
45 #pragma omp target update if (a) to (q[0:3])
kono
parents:
diff changeset
46 #pragma omp target update if (target update:a) to (q[0:3])
kono
parents:
diff changeset
47 }