Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/examples-4/async_target-1.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
/* { dg-do run } */ /* { dg-additional-options "-DCHUNKSZ=5000" { target { ! run_expensive_tests } } } */ /* { dg-additional-options "-DCHUNKSZ=1000" { target run_expensive_tests } } */ #include <stdlib.h> #define EPS 0.00001 #define N 100000 float Y[N]; float Z[N]; #pragma omp declare target float F (float a) { return -a; } #pragma omp end declare target void pipedF_ref () { int i; for (i = 0; i < N; i++) Y[i] = F (Y[i]); } void pipedF () { int i, C; for (C = 0; C < N; C += CHUNKSZ) { #pragma omp task #pragma omp target map(Z[C:CHUNKSZ]) #pragma omp parallel for for (i = C; i < C + CHUNKSZ; i++) Z[i] = F (Z[i]); } #pragma omp taskwait } void init () { int i; for (i = 0; i < N; i++) Y[i] = Z[i] = 0.1 * i; } void check () { int i; for (i = 0; i < N; i++) { float err = (Z[i] == 0.0) ? Y[i] : (Y[i] - Z[i]) / Z[i]; if (((err > 0) ? err : -err) > EPS) abort (); } } int main () { init (); pipedF_ref (); pipedF (); check (); return 0; }