From 52bfbb69e7e888d8692597e649e9cedc7436083c Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Mon, 28 Jan 2019 23:34:32 +0100 Subject: [PATCH] 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 --- libgomp/testsuite/libgomp.c/pr89002.c | 43 --------------------------- 1 file changed, 43 deletions(-) diff --git a/libgomp/testsuite/libgomp.c/pr89002.c b/libgomp/testsuite/libgomp.c/pr89002.c index b66fada836f..6d1b16405f2 100644 --- a/libgomp/testsuite/libgomp.c/pr89002.c +++ b/libgomp/testsuite/libgomp.c/pr89002.c @@ -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; -}