Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/task-4.c @ 64:d9bee9007a48
Added tag gcc-4.6-20100522 for changeset b7f97abdc517
author | ryoma <e075725@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 24 May 2010 12:48:09 +0900 |
parents | a06113de4d67 |
children |
line wrap: on
line source
/* { dg-do run } */ #include <omp.h> #include <stdlib.h> #include <string.h> int e; void __attribute__((noinline)) 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 __attribute__((noinline)) 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 (void) { #pragma omp parallel num_threads (4) foo (5 + omp_get_thread_num (), 7 + omp_get_thread_num ()); if (e) abort (); return 0; }