Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/goacc/pr70688.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
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; }