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

   1 // { dg-do compile }
   2
   3 void foo(int i)
   4 {
   5   int j;
   6   switch (i)                    // { dg-error "invalid entry" }
   7   {
   8   #pragma omp parallel
   9     { case 0:; }
  10   }
  11   switch (i)                    // { dg-error "invalid entry" }
  12   {
  13   #pragma omp for
  14     for (j = 0; j < 10; ++ j)
  15       { case 1:; }
  16   }
  17   switch (i)                    // { dg-error "invalid entry" }
  18   {
  19   #pragma omp critical
  20     { case 2:; }
  21   }
  22   switch (i)                    // { dg-error "invalid entry" }
  23   {
  24   #pragma omp master
  25     { case 3:; }
  26   }
  27   switch (i)                    // { dg-error "invalid entry" }
  28   {
  29   #pragma omp sections
  30     { case 4:;
  31     #pragma omp section
  32        { case 5:; }
  33     }
  34   }
  35   switch (i)                    // { dg-error "invalid entry" }
  36   {
  37   #pragma omp ordered
  38     { default:; }
  39   }
  40 }