Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c++/task-4.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 | a06113de4d67 |
children |
line wrap: on
line source
#include <omp.h> extern "C" void *memset (void *, int, __SIZE_TYPE__); extern "C" void abort (void); int e; void baz (int i, int *p, int j, int *q) { if (p[0] != 1 || p[i] != 3 || q[0] != 2 || q[j] != 4) #pragma omp atomic e++; } void foo (int i, int j) { int p[i + 1]; int q[j + 1]; memset (p, 0, sizeof (p)); memset (q, 0, sizeof (q)); p[0] = 1; p[i] = 3; q[0] = 2; q[j] = 4; #pragma omp task firstprivate (p, q) baz (i, p, j, q); } int main () { #pragma omp parallel num_threads (4) foo (5 + omp_get_thread_num (), 7 + omp_get_thread_num ()); if (e) abort (); }