Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.c++/nested-1.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 // { dg-do run }
2
3 extern "C" void abort(void);
4 #define N 1000
5
6 int foo()
7 {
8 int i = 0, j;
9
10 #pragma omp parallel for num_threads(2) shared (i)
11 for (j = 0; j < N; ++j)
12 {
13 #pragma omp parallel num_threads(1) shared (i)
14 {
15 #pragma omp atomic
16 i++;
17 }
18 }
19
20 return i;
21 }
22
23 int main()
24 {
25 if (foo() != N)
26 abort ();
27 return 0;
28 }