gcc/testsuite/gcc.dg/gomp/pr27388-1.c

   1 /* PR middle-end/27388 */
   2 /* { dg-do compile } */
   3 /* { dg-options "-fopenmp -fdump-tree-omplower" } */
   4
   5 int n, o;
   6
   7 void
   8 foo (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" } } */