libgomp/testsuite/libgomp.c/pr26171.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

/* PR c/26171 */
/* { dg-do run } */
/* { dg-options "-fopenmp" } */
/* { dg-require-effective-target tls_runtime } */

int thrv = 0;
#pragma omp threadprivate (thrv)

int
main ()
{
  thrv = 1;
  return 0;
}