Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/gomp/doacross-1.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
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 /* { dg-options "-fopenmp" } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 void
kono
parents:
diff changeset
5 foo (void)
kono
parents:
diff changeset
6 {
kono
parents:
diff changeset
7 int i, j, k;
kono
parents:
diff changeset
8 #pragma omp for ordered (1)
kono
parents:
diff changeset
9 for (i = 0; i < 64; i++)
kono
parents:
diff changeset
10 {
kono
parents:
diff changeset
11 #pragma omp ordered depend (sink: i - 1)
kono
parents:
diff changeset
12 #pragma omp ordered depend (source)
kono
parents:
diff changeset
13 }
kono
parents:
diff changeset
14 #pragma omp for ordered (1) collapse (1)
kono
parents:
diff changeset
15 for (i = 0; i < 64; i++)
kono
parents:
diff changeset
16 {
kono
parents:
diff changeset
17 #pragma omp ordered depend (sink: i - 1)
kono
parents:
diff changeset
18 #pragma omp ordered depend (source)
kono
parents:
diff changeset
19 }
kono
parents:
diff changeset
20 #pragma omp for collapse (2) ordered (1) /* { dg-error "clause parameter is less than" } */
kono
parents:
diff changeset
21 for (i = 0; i < 64; i++)
kono
parents:
diff changeset
22 for (j = 0; j < 64; j++)
kono
parents:
diff changeset
23 {
kono
parents:
diff changeset
24 #pragma omp ordered depend (sink: i - 1) /* { dg-error "does not match number" } */
kono
parents:
diff changeset
25 #pragma omp ordered depend (source)
kono
parents:
diff changeset
26 }
kono
parents:
diff changeset
27 #pragma omp for ordered (2) collapse (3) /* { dg-error "clause parameter is less than" } */
kono
parents:
diff changeset
28 for (i = 0; i < 64; i++)
kono
parents:
diff changeset
29 for (j = 0; j < 64; j++)
kono
parents:
diff changeset
30 for (k = 0; k < 64; k++)
kono
parents:
diff changeset
31 {
kono
parents:
diff changeset
32 #pragma omp ordered depend (sink: i - 1, j - 2) /* { dg-error "does not match number" } */
kono
parents:
diff changeset
33 #pragma omp ordered depend (source)
kono
parents:
diff changeset
34 }
kono
parents:
diff changeset
35 #pragma omp ordered depend (sink: j) /* { dg-error "clause must be closely nested inside an .ordered. loop" } */
kono
parents:
diff changeset
36 #pragma omp ordered depend (source) /* { dg-error "clause must be closely nested inside an .ordered. loop" } */
kono
parents:
diff changeset
37 #pragma omp for ordered (1)
kono
parents:
diff changeset
38 for (i = 0; i < 64; i++)
kono
parents:
diff changeset
39 {
kono
parents:
diff changeset
40 #pragma omp ordered depend (sink: i - 1) depend (sink: i - 2)
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
41 #pragma omp ordered depend (source) depend (source) /* { dg-error "more than one .depend. clause with .source. modifier on an .ordered. construct" } */
111
kono
parents:
diff changeset
42 }
kono
parents:
diff changeset
43 #pragma omp for ordered (1)
kono
parents:
diff changeset
44 for (i = 0; i < 64; i++)
kono
parents:
diff changeset
45 {
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
46 #pragma omp ordered depend (sink: i - 1) depend (source) depend (sink: i - 2) /* { dg-error ".depend. clause with .source. modifier specified together with .depend. clauses with .sink. modifier on the same construct" } */
111
kono
parents:
diff changeset
47 }
kono
parents:
diff changeset
48 }