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