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