Mercurial > hg > CbC > CbC_gcc

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