xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.c/omp-loop03.c (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1 extern void abort (void);
2 int a;
3 
4 void
foo()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
main(void)20 main (void)
21 {
22 #pragma omp parallel num_threads (64)
23   foo ();
24 
25   return 0;
26 }
27