(root)/
gcc-13.2.0/
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  }