1// { dg-do run } 2// { dg-additional-sources pr24455-1.C } 3// { dg-require-effective-target tls_runtime } 4// { dg-options "-fno-extern-tls-init" } 5 6extern "C" void abort (void); 7 8extern int i; 9#pragma omp threadprivate(i) 10 11int 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} 25