Subversion Repositories openrisc

// { dg-do compile }
// { dg-require-effective-target tls }
 
int tp1;
static int tp2;
extern int tp3;
 
int tp4 = 1;
static int tp5 = 1;
 
#pragma omp threadprivate (tp1, tp2, tp3, tp4, tp5)
 
#pragma omp threadprivate (undef)	// { dg-error "undeclared" }
 
int tp6;
int foo(void) { return tp6; }
 
#pragma omp threadprivate (tp6)		// { dg-error "after first use" }