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
   6 extern "C" void abort (void);
   7
   8 extern int i;
   9 #pragma omp threadprivate(i)
  10
  11 int main()
  12 {
  13   i = 0;
  14
  15 #pragma omp parallel default(none) num_threads(10) copyin(i)
  16     {
  17       i++;
  18 #pragma omp barrier
  19       if (i != 1)
  20         abort ();
  21     }
  22
  23     return 0;
  24 }