Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/c-c++-common/goacc/pr70688.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 const int n = 100;
2
3 int
4 private_reduction ()
5 {
6 int i, r;
7
8 #pragma acc parallel
9 #pragma acc loop private (r) reduction (+:r)
10 for (i = 0; i < 100; i++)
11 r += 10;
12
13 return r;
14 }
15
16 int
17 parallel_reduction ()
18 {
19 int sum = 0;
20 int dummy = 0;
21
22 #pragma acc data copy (dummy)
23 {
24 #pragma acc parallel num_gangs (10) copy (sum) reduction (+:sum)
25 {
26 int v = 5;
27 sum += 10 + v;
28 }
29 }
30
31 return sum;
32 }
33
34 int
35 main ()
36 {
37 int i, s = 0;
38
39 #pragma acc parallel num_gangs (10) copy (s) reduction (+:s)
40 for (i = 0; i < n; i++)
41 s += i+1;
42
43 #pragma acc parallel num_gangs (10) reduction (+:s) copy (s)
44 for (i = 0; i < n; i++)
45 s += i+1;
46
47 return 0;
48 }