libgomp/testsuite/libgomp.c++/pr24455.C

   1 // { dg-do run }
   2 // { dg-additional-sources pr24455-1.C }
   3 // { dg-require-effective-target tls_runtime }
   4 // { dg-options "-Wl,-G" { target powerpc-ibm-aix* } }
   5 // { dg-options "-Wl,-undefined,dynamic_lookup" { target *-*-darwin* } }
   6
   7 extern "C" void abort (void);
   8
   9 extern int i;
  10 #pragma omp threadprivate(i)
  11
  12 int main()
  13 {
  14   i = 0;
  15
  16 #pragma omp parallel default(none) num_threads(10) copyin(i)
  17     {
  18       i++;
  19 #pragma omp barrier
  20       if (i != 1)
  21         abort ();
  22     }
  23
  24     return 0;
  25 }