1  /* PR fortran/99226 */
       2  /* { dg-do compile } */
       3  
       4  void
       5  foo (int n)
       6  {
       7    int i;
       8    #pragma omp target	/* { dg-error "construct with nested 'teams' construct contains directives outside of the 'teams' construct" } */
       9    {
      10      #pragma omp teams distribute dist_schedule (static, n + 4)
      11      for (i = 0; i < 8; i++)
      12        ;
      13      #pragma omp teams distribute dist_schedule (static, n + 4)
      14      for (i = 0; i < 8; i++)
      15        ;
      16    }
      17  }