URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
// { dg-do compile }
|
// { dg-do compile }
|
// { dg-require-effective-target tls }
|
// { dg-require-effective-target tls }
|
|
|
int i, j;
|
int i, j;
|
|
|
#pragma omp threadprivate (i)
|
#pragma omp threadprivate (i)
|
|
|
void bar(void);
|
void bar(void);
|
void foo(void)
|
void foo(void)
|
{
|
{
|
int k;
|
int k;
|
extern int l;
|
extern int l;
|
extern int m;
|
extern int m;
|
|
|
#pragma omp threadprivate (m)
|
#pragma omp threadprivate (m)
|
|
|
#pragma omp parallel copyin(i)
|
#pragma omp parallel copyin(i)
|
bar();
|
bar();
|
#pragma omp parallel copyin(j) // { dg-error "threadprivate" }
|
#pragma omp parallel copyin(j) // { dg-error "threadprivate" }
|
bar();
|
bar();
|
#pragma omp parallel copyin(k) // { dg-error "threadprivate" }
|
#pragma omp parallel copyin(k) // { dg-error "threadprivate" }
|
bar();
|
bar();
|
#pragma omp parallel copyin(l) // { dg-error "threadprivate" }
|
#pragma omp parallel copyin(l) // { dg-error "threadprivate" }
|
bar();
|
bar();
|
#pragma omp parallel copyin(m)
|
#pragma omp parallel copyin(m)
|
bar();
|
bar();
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.