URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 273 |
Rev 338 |
// { dg-do run }
|
// { dg-do run }
|
|
|
extern "C" void abort ();
|
extern "C" void abort ();
|
|
|
struct A
|
struct A
|
{
|
{
|
A ();
|
A ();
|
~A ();
|
~A ();
|
A (const A &);
|
A (const A &);
|
unsigned long l;
|
unsigned long l;
|
};
|
};
|
|
|
int e;
|
int e;
|
|
|
A::A ()
|
A::A ()
|
{
|
{
|
l = 17;
|
l = 17;
|
}
|
}
|
|
|
A::~A ()
|
A::~A ()
|
{
|
{
|
if (l > 30)
|
if (l > 30)
|
#pragma omp atomic
|
#pragma omp atomic
|
e++;
|
e++;
|
}
|
}
|
|
|
A::A (const A &r)
|
A::A (const A &r)
|
{
|
{
|
l = r.l;
|
l = r.l;
|
}
|
}
|
|
|
void
|
void
|
check (int i, A &a, int j, A &b)
|
check (int i, A &a, int j, A &b)
|
{
|
{
|
if (i != 6 || a.l != 21 || j != 0 || b.l != 23)
|
if (i != 6 || a.l != 21 || j != 0 || b.l != 23)
|
#pragma omp atomic
|
#pragma omp atomic
|
e++;
|
e++;
|
}
|
}
|
|
|
A b;
|
A b;
|
int j;
|
int j;
|
|
|
void
|
void
|
foo (int i)
|
foo (int i)
|
{
|
{
|
A a;
|
A a;
|
a.l = 21;
|
a.l = 21;
|
#pragma omp task firstprivate (i, a, j, b)
|
#pragma omp task firstprivate (i, a, j, b)
|
check (i, a, j, b);
|
check (i, a, j, b);
|
}
|
}
|
|
|
void
|
void
|
bar (int i, A a)
|
bar (int i, A a)
|
{
|
{
|
a.l = 21;
|
a.l = 21;
|
#pragma omp task firstprivate (i, a, j, b)
|
#pragma omp task firstprivate (i, a, j, b)
|
check (i, a, j, b);
|
check (i, a, j, b);
|
}
|
}
|
|
|
A
|
A
|
baz ()
|
baz ()
|
{
|
{
|
A a, c;
|
A a, c;
|
a.l = 21;
|
a.l = 21;
|
c.l = 23;
|
c.l = 23;
|
#pragma omp task firstprivate (a, c)
|
#pragma omp task firstprivate (a, c)
|
check (6, a, 0, c);
|
check (6, a, 0, c);
|
return a;
|
return a;
|
}
|
}
|
|
|
int
|
int
|
main ()
|
main ()
|
{
|
{
|
b.l = 23;
|
b.l = 23;
|
foo (6);
|
foo (6);
|
bar (6, A ());
|
bar (6, A ());
|
baz ();
|
baz ();
|
#pragma omp parallel num_threads (4)
|
#pragma omp parallel num_threads (4)
|
{
|
{
|
#pragma omp single
|
#pragma omp single
|
for (int i = 0; i < 64; i++)
|
for (int i = 0; i < 64; i++)
|
{
|
{
|
foo (6);
|
foo (6);
|
bar (6, A ());
|
bar (6, A ());
|
baz ();
|
baz ();
|
}
|
}
|
}
|
}
|
if (e)
|
if (e)
|
abort ();
|
abort ();
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.