1 /* PR c/26171 */ 2 /* { dg-do run } */ 3 /* { dg-options "-fopenmp" } */ 4 /* { dg-require-effective-target tls_runtime } */ 5 6 int thrv = 0; 7 #pragma omp threadprivate (thrv) 8 9 int main()10 main () 11 { 12 thrv = 1; 13 return 0; 14 } 15