Mercurial > hg > CbC > CbC_gcc
comparison libgomp/testsuite/libgomp.c/omp-parallel-if.c @ 0:a06113de4d67
first commit
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 14:47:48 +0900 |
parents | |
children | 04ced10e8804 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:a06113de4d67 |
---|---|
1 #include <omp.h> | |
2 | |
3 extern void abort (void); | |
4 | |
5 int | |
6 foo (void) | |
7 { | |
8 return 10; | |
9 } | |
10 | |
11 main () | |
12 { | |
13 int A = 0; | |
14 | |
15 #pragma omp parallel if (foo () > 10) shared (A) | |
16 { | |
17 A = omp_get_num_threads (); | |
18 } | |
19 | |
20 if (A != 1) | |
21 abort (); | |
22 | |
23 #pragma omp parallel if (foo () == 10) num_threads (3) shared (A) | |
24 { | |
25 A = omp_get_num_threads (); | |
26 } | |
27 | |
28 if (A != 3) | |
29 abort (); | |
30 | |
31 #pragma omp parallel if (foo () == 10) num_threads (foo ()) shared (A) | |
32 { | |
33 A = omp_get_num_threads (); | |
34 } | |
35 | |
36 if (A != 10) | |
37 abort (); | |
38 | |
39 return 0; | |
40 } |