Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.c/omp-loop03.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 extern void abort (void);
2 int a;
3
4 void
5 foo ()
6 {
7 int i;
8 a = 30;
9 #pragma omp barrier
10 #pragma omp for lastprivate (a)
11 for (i = 0; i < 1024; i++)
12 {
13 a = i;
14 }
15 if (a != 1023)
16 abort ();
17 }
18
19 int
20 main (void)
21 {
22 #pragma omp parallel num_threads (64)
23 foo ();
24
25 return 0;
26 }