1/* PR middle-end/27388 */ 2/* { dg-do compile } */ 3/* { dg-options "-fopenmp -fdump-tree-omplower" } */ 4 5int n, o; 6 7void 8foo (void) 9{ 10#pragma omp parallel firstprivate (n) 11 { 12 int i; 13#pragma omp parallel for firstprivate (n) 14 for (i = 0; i < 10; i++) 15 ++n; 16#pragma omp atomic 17 o += n; 18 } 19} 20 21/* { dg-final { scan-tree-dump-times "shared\\\(i\\\)" 0 "omplower" } } */ 22/* { dg-final { scan-tree-dump-times "private\\\(i\\\)" 1 "omplower" } } */ 23/* { dg-final { cleanup-tree-dump "omplower" } } */ 24