(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
pr27416.c
       1  /* PR middle-end/27416 */
       2  /* { dg-do compile } */
       3  
       4  void
       5  foo (void)
       6  {
       7    int i = 0, j = 0;
       8  #pragma omp for firstprivate (j) /* { dg-error "is private in outer context" } */
       9    for (i = 0; i < 10; i++)
      10      j++;
      11  }
      12  
      13  int
      14  bar (void)
      15  {
      16    int i, j;
      17  #pragma omp for lastprivate (j)	/* { dg-error "is private in outer context" } */
      18    for (i = 0; i < 10; i++)
      19      j = i;
      20    return j;
      21  }
      22  
      23  int
      24  baz (void)
      25  {
      26    int i, j = 0;
      27  #pragma omp for reduction (+:j)	/* { dg-error "is private in outer context" } */
      28    for (i = 0; i < 10; i++)
      29      j++;
      30    return j;
      31  }