// { dg-do run }// { dg-additional-sources pr24455-1.C }// { dg-require-effective-target tls_runtime }extern "C" void abort (void);extern int i;#pragma omp threadprivate(i)int main(){i = 0;#pragma omp parallel default(none) num_threads(10) copyin(i){i++;#pragma omp barrierif (i != 1)abort ();}return 0;}