1 extern "C" 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