From 7c91c517c993701bf8871d204b95869310ebbeb0 Mon Sep 17 00:00:00 2001 From: jakub Date: Mon, 28 Jan 2019 22:34:32 +0000 Subject: [PATCH] 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@268346 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 b66fada836fa..6d1b16405f22 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; -} -- 2.47.2