Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/gomp/nestedfn-1.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* This testcase violates the OpenMP requirements, as nested functions access the original variables. We test it just to make sure we don't ICE on it. */ /* { dg-do compile } */ /* { dg-options "-O2 -fopenmp" } */ extern void abort (void); extern int omp_get_thread_num (); extern void omp_set_dynamic (int); int main (void) { int j = 0, k = 6, l = 7, m = 8; void foo (void) { int i = 5; int bar (void) { return i + 1 + (j > 100 ? 10000 : 0); } #pragma omp sections private (i) { #pragma omp section { i = 6; if (bar () != 6) #pragma omp atomic ++j; } #pragma omp section { if (bar () != 6) #pragma omp atomic ++j; } } if (k != 6 || l != 7 || m != 8) #pragma omp atomic ++j; } omp_set_dynamic (0); #pragma omp parallel num_threads (2) firstprivate (k) shared (l) private (m) { if (omp_get_thread_num () != 0) k += omp_get_thread_num (); m = 9; foo (); } if (j) abort (); return 0; }