Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/goacc/pr70688.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
const int n = 100; int private_reduction () { int i, r; #pragma acc parallel #pragma acc loop private (r) reduction (+:r) for (i = 0; i < 100; i++) r += 10; return r; } int parallel_reduction () { int sum = 0; int dummy = 0; #pragma acc data copy (dummy) { #pragma acc parallel num_gangs (10) copy (sum) reduction (+:sum) { int v = 5; sum += 10 + v; } } return sum; } int main () { int i, s = 0; #pragma acc parallel num_gangs (10) copy (s) reduction (+:s) for (i = 0; i < n; i++) s += i+1; #pragma acc parallel num_gangs (10) reduction (+:s) copy (s) for (i = 0; i < n; i++) s += i+1; return 0; }