gcc/testsuite/c-c++-common/gomp/pr99226.c

   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 }