Mercurial > hg > CbC > CbC_gcc

annotate libgomp/testsuite/libgomp.c/task-reduction-2.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
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 typedef __SIZE_TYPE__ size_t;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 extern void abort (void);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 void
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 bar (int *a, int *b, int *c, int (*d)[2], int (*e)[4], size_t n, int f[1][n], int g[1][n * 2])
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 #pragma omp task in_reduction (*: a[:n], b[3:n], c[n:n], d[0][:n], e[0][1:n], f[0][:], g[0][1:n])
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 a[0] *= 12;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 a[1] *= 13;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 b[3] *= 14;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 b[4] *= 15;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13 c[n] *= 16;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14 c[n + 1] *= 17;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15 d[0][0] *= 18;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 d[0][1] *= 19;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 e[0][1] *= 20;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 e[0][2] *= 21;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 f[0][0] *= 22;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20 f[0][1] *= 23;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21 g[0][1] *= 24;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22 g[0][2] *= 25;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
26 void
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
27 baz (size_t n, void *x, void *y, int f[1][n], int g[1][n * 2])
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
28 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
29 int a[n], b[n + 3], c[2 * n];
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
30 int (*d)[n] = (int (*)[n]) x;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
31 int (*e)[n * 2] = (int (*)[n * 2]) y;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
32 int i;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
33 for (i = 0; i < n; i++)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
34 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
35 a[i] = 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
36 b[i + 3] = 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
37 c[i + n] = 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
38 d[0][i] = 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
39 e[0][i + 1] = 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
40 f[0][i] = 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
41 g[0][i + 1] = 1;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
42 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
43 #pragma omp parallel num_threads(2) firstprivate (n) \
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
44 reduction (task, *: a, b[3:n], c[n:n], d[0][:n], e[0][1:n], f[0][:], g[0][1:n])
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
45 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
46 #pragma omp master
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
47 bar (a, b, c, (int (*)[2]) d, (int (*)[4]) e, n, f, g);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
48 #pragma omp master
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
49 #pragma omp task in_reduction (*: a, b[3:n], c[n:n], d[0][:n], e[0][1:n], f[0][:], g[0][1:n])
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
50 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
51 a[0] *= 2;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
52 a[1] *= 3;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
53 b[3] *= 4;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
54 b[4] *= 5;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
55 c[n] *= 6;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
56 c[n + 1] *= 7;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
57 d[0][0] *= 8;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
58 d[0][1] *= 9;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
59 e[0][1] *= 10;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
60 e[0][2] *= 11;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
61 f[0][0] *= 12;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
62 f[0][1] *= 13;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
63 g[0][1] *= 14;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
64 g[0][2] *= 15;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
65 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
66 n = 0;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
67 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
68 if (a[0] != 24 || a[1] != 39 || b[3] != 56 || b[4] != 75)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
69 abort ();
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
70 if (c[2] != 96 || c[3] != 119 || d[0][0] != 144 || d[0][1] != 171)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
71 abort ();
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
72 if (e[0][1] != 200 || e[0][2] != 231 || f[0][0] != 264 || f[0][1] != 299)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
73 abort ();
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
74 if (g[0][1] != 336 || g[0][2] != 375)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
75 abort ();
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
76 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
77
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
78 int
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
79 main ()
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
80 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
81 int d[1][2], e[1][4], f[1][2], g[1][4];
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
82 volatile int two;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
83 two = 2;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
84 baz (two, (void *) d, (void *) e, f, g);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
85 return 0;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
86 }