Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/loop-red-w-2.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
#include <stdio.h> #include <openacc.h> #include <gomp-constants.h> #define N (32*32*32+17) int main () { int ix; int ondev = 0; int q = 0, h = 0; int workersize; #pragma acc parallel num_workers(32) vector_length(32) copy(q) copy(ondev) \ copyout(workersize) { int t = q; #pragma acc loop worker reduction(+:t) for (unsigned ix = 0; ix < N; ix++) { int val = ix; if (acc_on_device (acc_device_not_host)) { int g, w, v; g = __builtin_goacc_parlevel_id (GOMP_DIM_GANG); w = __builtin_goacc_parlevel_id (GOMP_DIM_WORKER); v = __builtin_goacc_parlevel_id (GOMP_DIM_VECTOR); val = (g << 16) | (w << 8) | v; ondev = 1; } t += val; } q = t; workersize = __builtin_goacc_parlevel_size (GOMP_DIM_WORKER); } for (ix = 0; ix < N; ix++) { int val = ix; if(ondev) { int g = 0; int w = ix % workersize; int v = 0; val = (g << 16) | (w << 8) | v; } h += val; } if (q != h) { printf ("t=%x expected %x\n", q, h); return 1; } return 0; }