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

   1 // { dg-do compile }
   2
   3 void
   4 foo (int x)
   5 {
   6   bad1:                         // { dg-error "jump to label" }
   7   #pragma omp taskgroup
   8     goto bad1;                  // { dg-message "from here|exits OpenMP" }
   9
  10   goto bad2;                    // { dg-message "from here" }
  11   #pragma omp taskgroup
  12     {
  13       bad2: ;                   // { dg-error "jump to label" }
  14                                 // { dg-message "enters OpenMP" "" { target *-*-* } 13 }
  15     }
  16
  17   #pragma omp taskgroup
  18     {
  19       int i;
  20       goto ok1;
  21       for (i = 0; i < 10; ++i)
  22         { ok1: break; }
  23     }
  24
  25   switch (x)
  26   {
  27   #pragma omp taskgroup
  28     { case 0:; }                // { dg-error "jump" }
  29                                 // { dg-message "enters" "" { target *-*-* } 28 }
  30   }
  31 }
  32
  33 // { dg-error "invalid branch to/from OpenMP structured block" "" { target *-*-* } 8 }
  34 // { dg-error "invalid entry to OpenMP structured block" "" { target *-*-* } 10 }