libgomp/testsuite/libgomp.c/pr32468.c

   1 /* PR libgomp/32468 */
   2 /* { dg-do run } */
   3
   4 #include <omp.h>
   5 #include <stdlib.h>
   6
   7 int
   8 main (void)
   9 {
  10   int res[2] = { -1, -1 };
  11   omp_set_dynamic (0);
  12   omp_set_num_threads (4);
  13 #pragma omp parallel
  14   {
  15     #pragma omp sections
  16       {
  17         #pragma omp section
  18         res[0] = omp_get_num_threads () != 4;
  19         #pragma omp section
  20         res[1] = omp_get_num_threads () != 4;
  21       }
  22   }
  23   if (res[0] != 0 || res[1] != 0)
  24     abort ();
  25   return 0;
  26 }