libgomp/testsuite/libgomp.c/omp-loop03.c

   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 }