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-message "from here|exits OpenMP" }
   8
   9   goto bad2;                    // { dg-message "from here" }
  10   #pragma omp parallel
  11     {
  12       bad2: ;                   // { dg-error "jump to label" }
  13                                 // { dg-message "enters OpenMP" "" { target *-*-* } 12 }
  14     }
  15
  16   #pragma omp parallel
  17     {
  18       int i;
  19       goto ok1;
  20       for (i = 0; i < 10; ++i)
  21         { ok1: break; }
  22     }
  23 }
  24
  25 // { dg-message "error: invalid branch to/from OpenMP structured block" "" { target *-*-* } 7 }
  26 // { dg-message "error: invalid entry to OpenMP structured block" "" { target *-*-* } 9 }