1extern "C" void abort (void);
2int a;
3
4void
5foo ()
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
19int
20main (void)
21{
22#pragma omp parallel num_threads (64)
23  foo ();
24
25  return 0;
26}
27