(root)/
gcc-13.2.0/
gcc/
testsuite/
c-c++-common/
gomp/
default-1.c
       1  void
       2  foo (void)
       3  {
       4    int x = 0, i;
       5    #pragma omp task default(none)	/* { dg-message "note: enclosing 'task'" } */
       6    {
       7      x++;	/* { dg-error "'x' not specified in enclosing 'task'" } */
       8    }
       9    #pragma omp taskloop default(none)	/* { dg-message "note: enclosing 'taskloop'" } */
      10    for (i = 0; i < 64; i++)
      11      {
      12        x++;	/* { dg-error "'x' not specified in enclosing 'taskloop'" } */
      13      }
      14    #pragma omp teams default(none)	/* { dg-message "note: enclosing 'teams'" } */
      15    {
      16      x++;	/* { dg-error "'x' not specified in enclosing 'teams'" } */
      17    }
      18    #pragma omp parallel default(none)	/* { dg-message "note: enclosing 'parallel'" } */
      19    {
      20      x++;	/* { dg-error "'x' not specified in enclosing 'parallel'" } */
      21    }
      22  }