(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
target-4.c
       1  #include <omp.h>
       2  #include <stdlib.h>
       3  
       4  int
       5  main ()
       6  {
       7    omp_set_dynamic (0);
       8    #pragma omp parallel num_threads (4)
       9    #pragma omp target if (0)
      10    #pragma omp single
      11    if (omp_get_num_threads () != 1)
      12      abort ();
      13    return 0;
      14  }