re PR middle-end/89002 (ICE in scan_omp_1_op, at omp-low.c:3166)
PR middle-end/89002 * gimplify.c (gimplify_omp_for): When adding OMP_CLAUSE_*_GIMPLE_SEQ for lastprivate/linear IV, push gimplify context around gimplify_assign and, if it needed any temporaries, pop it into a gimple bind around the sequence. * testsuite/libgomp.c/pr89002.c: New test. From-SVN: r268346
This commit is contained in:
parent
be3a87e7b5
commit
52bfbb69e7
@ -41,46 +41,3 @@ main ()
|
||||
abort ();
|
||||
return 0;
|
||||
}
|
||||
/* PR middle-end/89002 */
|
||||
|
||||
extern void abort (void);
|
||||
|
||||
int
|
||||
foo (int x)
|
||||
{
|
||||
int a;
|
||||
int *p = &a;
|
||||
|
||||
#pragma omp taskloop lastprivate (a)
|
||||
for (a = 0; a < x; ++a)
|
||||
;
|
||||
return *p;
|
||||
}
|
||||
|
||||
int
|
||||
bar (int x)
|
||||
{
|
||||
int a;
|
||||
int *p = &a;
|
||||
|
||||
#pragma omp parallel
|
||||
#pragma omp single
|
||||
#pragma omp taskloop lastprivate (a)
|
||||
for (a = 0; a < x; ++a)
|
||||
;
|
||||
return *p;
|
||||
}
|
||||
|
||||
int
|
||||
main ()
|
||||
{
|
||||
#pragma omp parallel
|
||||
#pragma omp single
|
||||
{
|
||||
if (foo (4) != 4)
|
||||
abort ();
|
||||
}
|
||||
if (bar (6) != 6)
|
||||
abort ();
|
||||
return 0;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user