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

   1 #if defined(__hppa__) && !defined(__LP64__)
   2 #define NUM_THREADS 50
   3 #else
   4 #define NUM_THREADS 64
   5 #endif
   6
   7 extern void abort (void);
   8 int a;
   9
  10 void
  11 foo ()
  12 {
  13   int i;
  14   a = 30;
  15 #pragma omp barrier
  16 #pragma omp for lastprivate (a)
  17   for (i = 0; i < 1024; i++)
  18     {
  19       a = i;
  20     }
  21   if (a != 1023)
  22     abort ();
  23 }
  24
  25 int
  26 main (void)
  27 {
  28 #pragma omp parallel num_threads (NUM_THREADS)
  29   foo ();
  30
  31   return 0;
  32 }