Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.c/reduction-4.c @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 #include <omp.h>
2 #include <stdlib.h>
3
4 int
5 main (void)
6 {
7 int i = 0, j = 0, k = 0, l = 0;
8 #pragma omp parallel num_threads(4) reduction(-:i) reduction(|:k) \
9 reduction(^:l)
10 {
11 if (i != 0 || k != 0 || l != 0)
12 #pragma omp atomic
13 j |= 1;
14
15 if (omp_get_num_threads () != 4)
16 #pragma omp atomic
17 j |= 2;
18
19 i = omp_get_thread_num ();
20 k = 1 << (2 * i);
21 l = 0xea << (3 * i);
22 }
23
24 if (j & 1)
25 abort ();
26 if ((j & 2) == 0)
27 {
28 if (i != (0 + 1 + 2 + 3))
29 abort ();
30 if (k != 0x55)
31 abort ();
32 if (l != 0x1e93a)
33 abort ();
34 }
35 return 0;
36 }