Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/target-17.c @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
extern void abort (void); void foo (int n) { int a[n], i, err; for (i = 0; i < n; i++) a[i] = 5 * i; #pragma omp target map(to:a) map(from:err) private(i) { err = 0; for (i = 0; i < n; i++) if (a[i] != 5 * i) err = 1; } if (err) abort (); for (i = 0; i < n; i++) a[i] += i; #pragma omp target map(from:err) private(i) { err = 0; for (i = 0; i < n; i++) if (a[i] != 6 * i) err = 1; } if (err) abort (); for (i = 0; i < n; i++) a[i] += i; #pragma omp target firstprivate (a) map(from:err) private(i) { err = 0; for (i = 0; i < n; i++) if (a[i] != 7 * i) err = 1; } if (err) abort (); } int main () { foo (9); return 0; }