6837b3b895
PR middle-end/35130 * tree-nested.c (convert_call_expr): Put FRAME.* vars into OMP_CLAUSE_SHARED rather than OMP_CLAUSE_FIRSTPRIVATE clause. * testsuite/libgomp.fortran/pr35130.f90: New test. * testsuite/libgomp.c/pr35130.c: New test. From-SVN: r132349
132 lines
1.8 KiB
C
132 lines
1.8 KiB
C
/* PR middle-end/35130 */
|
|
|
|
extern void abort (void);
|
|
|
|
void
|
|
f1 (void)
|
|
{
|
|
int a[4], k;
|
|
void nested (int x)
|
|
{
|
|
a[x] = 42;
|
|
}
|
|
|
|
for (k = 0; k < 4; k++)
|
|
a[k] = 0;
|
|
#pragma omp parallel for
|
|
for (k = 0; k < 4; k++)
|
|
nested (k);
|
|
|
|
if (a[0] != 42 || a[1] != 42 || a[2] != 42 || a[3] != 42)
|
|
abort ();
|
|
}
|
|
|
|
void
|
|
f2 (void)
|
|
{
|
|
int a[4], k;
|
|
void nested (void)
|
|
{
|
|
int l;
|
|
void nested2 (int x)
|
|
{
|
|
a[x] = 42;
|
|
}
|
|
#pragma omp parallel for
|
|
for (l = 0; l < 4; l++)
|
|
nested2 (l);
|
|
}
|
|
|
|
for (k = 0; k < 4; k++)
|
|
a[k] = 0;
|
|
|
|
nested ();
|
|
|
|
if (a[0] != 42 || a[1] != 42 || a[2] != 42 || a[3] != 42)
|
|
abort ();
|
|
}
|
|
|
|
void
|
|
f3 (void)
|
|
{
|
|
int a[4], b[4], c[4], k;
|
|
void nested (int x)
|
|
{
|
|
a[x] = b[x] = c[x] = 42;
|
|
}
|
|
|
|
for (k = 0; k < 4; k++)
|
|
a[k] = b[k] = c[k] = 0;
|
|
nested (0);
|
|
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp single
|
|
{
|
|
a[1] = 43;
|
|
b[1] = 43;
|
|
}
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp single
|
|
{
|
|
b[2] = 44;
|
|
c[2] = 44;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (a[0] != 42 || a[1] != 43 || a[2] != 0 || a[3] != 0)
|
|
abort ();
|
|
if (b[0] != 42 || b[1] != 43 || b[2] != 44 || b[3] != 0)
|
|
abort ();
|
|
if (c[0] != 42 || c[1] != 0 || c[2] != 44 || c[3] != 0)
|
|
abort ();
|
|
}
|
|
|
|
void
|
|
f4 (void)
|
|
{
|
|
int a[4], b[4], c[4], k;
|
|
void nested ()
|
|
{
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp single
|
|
{
|
|
a[1] = 43;
|
|
b[1] = 43;
|
|
}
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp single
|
|
{
|
|
b[2] = 44;
|
|
c[2] = 44;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
for (k = 0; k < 4; k++)
|
|
a[k] = b[k] = c[k] = k == 0 ? 42 : 0;
|
|
nested ();
|
|
|
|
if (a[0] != 42 || a[1] != 43 || a[2] != 0 || a[3] != 0)
|
|
abort ();
|
|
if (b[0] != 42 || b[1] != 43 || b[2] != 44 || b[3] != 0)
|
|
abort ();
|
|
if (c[0] != 42 || c[1] != 0 || c[2] != 44 || c[3] != 0)
|
|
abort ();
|
|
}
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
f1 ();
|
|
f2 ();
|
|
f3 ();
|
|
f4 ();
|
|
return 0;
|
|
}
|