gcc/testsuite/g++.dg/gomp/block-1.C

   1 // { dg-do compile }
   2
   3 void foo()
   4 {
   5   bad1:                         // { dg-error "jump to label" }
   6   #pragma omp parallel
   7     goto bad1;                  // { dg-error "from here|exits OpenMP" }
   8
   9   goto bad2;                    // { dg-error "from here" }
  10   #pragma omp parallel
  11     {
  12       bad2: ;                   // { dg-error "jump to label|enters OpenMP" }
  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 }