libgomp/testsuite/libgomp.c-c++-common/default-1.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3
   4 int
   5 main ()
   6 {
   7   int v = 42;
   8   #pragma omp parallel num_threads(4) default(firstprivate)
   9   {
  10     if (v != 42)
  11       abort ();
  12     v = omp_get_thread_num ();
  13     #pragma omp barrier
  14     if (v != omp_get_thread_num ())
  15       abort ();
  16   }
  17   #pragma omp parallel num_threads(4) default(private)
  18   {
  19     v = omp_get_thread_num () + 13;
  20     #pragma omp barrier
  21     if (v != omp_get_thread_num () + 13)
  22       abort ();
  23   }
  24   return 0;
  25 }