Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/loop-wv-1.c @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 84e7813d76e9 |
children | 1830386684a0 |
line wrap: on
line source
#include <stdio.h> #include <openacc.h> #include <gomp-constants.h> #define N (32*32*32+17) int main () { int ary[N]; int ix; int exit = 0; int ondev = 0; for (ix = 0; ix < N;ix++) ary[ix] = -1; #pragma acc parallel num_workers(32) vector_length(32) copy(ary) copy(ondev) { #pragma acc loop worker vector for (unsigned ix = 0; ix < N; 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); ary[ix] = (g << 16) | (w << 8) | v; ondev = 1; } else ary[ix] = ix; } } for (ix = 0; ix < N; ix++) { int expected = ix; if(ondev) { int g = 0; int w = (ix / 32) % 32; int v = ix % 32; expected = (g << 16) | (w << 8) | v; } if (ary[ix] != expected) { exit = 1; printf ("ary[%d]=%x expected %x\n", ix, ary[ix], expected); } } return exit; }