1// { dg-do compile }
2// { dg-require-effective-target tls_native }
3
4int i, j;
5
6#pragma omp threadprivate (i)
7
8void bar(void);
9void foo(void)
10{
11  int k;
12  extern int l;
13  extern int m;
14
15#pragma omp threadprivate (m)
16
17  #pragma omp parallel copyin(i)
18    bar();
19  #pragma omp parallel copyin(j)	// { dg-error "threadprivate" }
20    bar();
21  #pragma omp parallel copyin(k)	// { dg-error "threadprivate" }
22    bar();
23  #pragma omp parallel copyin(l)	// { dg-error "threadprivate" }
24    bar();
25  #pragma omp parallel copyin(m)
26    bar();
27}
28