Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/pr89002.c @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
/* 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; }