gcc/testsuite/c-c++-common/gomp/imperfect1.c

   1 /* { dg-do compile } */
   2
   3 /* This test case is expected to fail due to errors.  */
   4
   5 int f1 (int depth, int iter);
   6 int f2 (int depth, int iter);
   7
   8 void s1 (int a1, int a2, int a3)
   9 {
  10   int i, j, k;
  11
  12 #pragma omp for collapse(3)
  13   for (i = 0; i < a1; i++)
  14     {
  15       f1 (0, i);
  16       for (j = 0; j < a2; j++)
  17         {
  18 #pragma omp barrier     /* { dg-error "intervening code must not contain OpenMP directives" } */
  19           f1 (1, j);
  20           if (i == 2)
  21             continue;   /* { dg-error "invalid exit" } */
  22           else
  23             break;      /* { dg-error "invalid exit" } */
  24           for (k = 0; k < a3; k++)
  25             {
  26               f1 (2, k);
  27               f2 (2, k);
  28             }
  29           f2 (1, j);
  30         }
  31       for (k = 0; k < a3; k++)  /* { dg-error "loop not permitted in intervening code " } */
  32         {
  33           f1 (2, k);
  34           f2 (2, k);
  35         }
  36       f2 (0, i);
  37     }
  38 }