libgomp/testsuite/libgomp.c/omp-parallel-for.c

   1 extern void abort (void);
   2
   3 main()
   4 {
   5   int i, a;
   6
   7   a = 30;
   8
   9 #pragma omp parallel for firstprivate (a) lastprivate (a) \
  10         num_threads (2) schedule(static)
  11   for (i = 0; i < 10; i++)
  12     a = a + i;
  13
  14   /* The thread that owns the last iteration will have computed
  15      30 + 5 + 6 + 7 + 8 + 9 = 65.  */
  16   if (a != 65)
  17     abort ();
  18
  19   return 0;
  20 }