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

   1 // { dg-do compile }
   2
   3 void foo()
   4 {
   5   bad1:
   6   #pragma omp parallel
   7     goto bad1;                  // { dg-error "invalid exit" }
   8
   9   goto bad2;                    // { dg-error "invalid entry" }
  10   #pragma omp parallel
  11     {
  12       bad2: ;
  13     }
  14
  15   #pragma omp parallel
  16     {
  17       int i;
  18       goto ok1;
  19       for (i = 0; i < 10; ++i)
  20         { ok1: break; }
  21     }
  22 }