1 extern
2 #ifdef __cplusplus
3 "C"
4 #endif
5 void abort (void);
6 int a, b[3] = { 1, 1, 1 };
7 unsigned long int c[2] = { ~0UL, ~0UL };
8
9 void
bar(int i)10 bar (int i)
11 {
12 #pragma omp task in_reduction (*: b[:3]) in_reduction (&: c[1:]) \
13 in_reduction (+: a)
14 {
15 a += 4;
16 b[1] *= 4;
17 c[1] &= ~(1UL << (i + 16));
18 }
19 }
20
21 void
foo(unsigned long long int x,unsigned long long int y,unsigned long long int z)22 foo (unsigned long long int x, unsigned long long int y, unsigned long long int z)
23 {
24 unsigned long long int i;
25 #pragma omp for schedule(runtime) reduction (task, +: a) \
26 reduction (task, *: b) reduction (task, &: c[1:1])
27 for (i = x; i < y; i += z)
28 {
29 a++;
30 b[0] *= 2;
31 bar (i);
32 b[2] *= 3;
33 c[1] &= ~(1UL << i);
34 }
35 }
36
37 int
main()38 main ()
39 {
40 volatile int two = 2;
41 foo (two, 7 * two, two);
42 if (a != 30 || b[0] != 64 || b[1] != (1 << 12) || b[2] != 3 * 3 * 3 * 3 * 3 * 3
43 || c[0] != ~0UL || c[1] != ~0x15541554UL)
44 abort ();
45 a = 0;
46 b[0] = 1;
47 b[1] = 1;
48 b[2] = 1;
49 c[1] = ~0UL;
50 #pragma omp parallel
51 foo (two, 8 * two, two);
52 if (a != 35 || b[0] != 128 || b[1] != (1 << 14) || b[2] != 3 * 3 * 3 * 3 * 3 * 3 * 3
53 || c[0] != ~0UL || c[1] != ~0x55545554UL)
54 abort ();
55 return 0;
56 }
57