Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gcc.dg/gomp/for-18.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 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 "-O -fopenmp -fdump-tree-ompexp" } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 void
kono
parents:
diff changeset
5 foo (int *a, int i)
kono
parents:
diff changeset
6 {
kono
parents:
diff changeset
7 int j, k = 1, l = 30, m = 4;
kono
parents:
diff changeset
8 #pragma omp parallel for num_threads (3 * i) schedule (dynamic, i * 4)
kono
parents:
diff changeset
9 for (j = 0; j <= l; j++)
kono
parents:
diff changeset
10 a[j] = 1;
kono
parents:
diff changeset
11 #pragma omp parallel for num_threads (3 * i) schedule (dynamic, i * 4)
kono
parents:
diff changeset
12 for (j = k; j <= l; j += (m - 1))
kono
parents:
diff changeset
13 a[j] = 2;
kono
parents:
diff changeset
14 #pragma omp parallel for num_threads (3 * i) schedule (dynamic, 4)
kono
parents:
diff changeset
15 for (j = 0; j <= l; j++)
kono
parents:
diff changeset
16 a[j] = 3;
kono
parents:
diff changeset
17 #pragma omp parallel for num_threads (3 * i) schedule (dynamic, 4)
kono
parents:
diff changeset
18 for (j = k; j <= l; j += (m - 1))
kono
parents:
diff changeset
19 a[j] = 4;
kono
parents:
diff changeset
20 }
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 void
kono
parents:
diff changeset
23 bar (int *a, int i)
kono
parents:
diff changeset
24 {
kono
parents:
diff changeset
25 int j, k = 1, l = 30, m = 4;
kono
parents:
diff changeset
26 #pragma omp parallel for num_threads (3 * i) schedule (guided, i * 4)
kono
parents:
diff changeset
27 for (j = 0; j <= l; j++)
kono
parents:
diff changeset
28 a[j] = 1;
kono
parents:
diff changeset
29 #pragma omp parallel for num_threads (3 * i) schedule (guided, i * 4)
kono
parents:
diff changeset
30 for (j = k; j <= l; j += (m - 1))
kono
parents:
diff changeset
31 a[j] = 2;
kono
parents:
diff changeset
32 #pragma omp parallel for num_threads (3 * i) schedule (guided, 4)
kono
parents:
diff changeset
33 for (j = 0; j <= l; j++)
kono
parents:
diff changeset
34 a[j] = 3;
kono
parents:
diff changeset
35 #pragma omp parallel for num_threads (3 * i) schedule (guided, 4)
kono
parents:
diff changeset
36 for (j = k; j <= l; j += (m - 1))
kono
parents:
diff changeset
37 a[j] = 4;
kono
parents:
diff changeset
38 }
kono
parents:
diff changeset
39
kono
parents:
diff changeset
40 /* { dg-final { scan-tree-dump-times "GOMP_parallel_loop_dynamic_start" 4 "ompexp" { xfail *-*-* } } } */
kono
parents:
diff changeset
41 /* { dg-final { scan-tree-dump-times "GOMP_parallel_loop_guided_start" 4 "ompexp" { xfail *-*-* } } } */