Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-loop-data-enter-exit.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 |
line wrap: on
line source
#include <stdlib.h> #define N (1024 * 512) #define COUNTERTYPE unsigned int int main (void) { unsigned int *__restrict a; unsigned int *__restrict b; unsigned int *__restrict c; a = (unsigned int *__restrict)malloc (N * sizeof (unsigned int)); b = (unsigned int *__restrict)malloc (N * sizeof (unsigned int)); c = (unsigned int *__restrict)malloc (N * sizeof (unsigned int)); #pragma acc enter data create (a[0:N], b[0:N], c[0:N]) #pragma acc kernels present (a[0:N]) { for (COUNTERTYPE i = 0; i < N; i++) a[i] = i * 2; } #pragma acc kernels present (b[0:N]) { for (COUNTERTYPE i = 0; i < N; i++) b[i] = i * 4; } #pragma acc kernels present (a[0:N], b[0:N], c[0:N]) { for (COUNTERTYPE ii = 0; ii < N; ii++) c[ii] = a[ii] + b[ii]; } #pragma acc exit data copyout (a[0:N], b[0:N], c[0:N]) for (COUNTERTYPE i = 0; i < N; i++) if (c[i] != a[i] + b[i]) abort (); free (a); free (b); free (c); return 0; }