gcc/testsuite/c-c++-common/gomp/imperfect-extension.c

   1 /* { dg-do compile } */
   2
   3 /* Check that __extension__ introduces intervening code.  */
   4
   5 extern void do_something (void);
   6
   7 void imperfect1 (int x, int y)
   8 {
   9 #pragma omp for collapse (2)
  10   for (int i = 0; i < x; i++)  /* { dg-error "not enough nested loops" } */
  11     {
  12       __extension__ ({
  13           for (int j = 0; j < y; j++)  /* { dg-error "loop not permitted in intervening code" } */
  14             do_something ();
  15         });
  16     }
  17 }
  18
  19 void perfect1 (int x, int y)
  20 {
  21 #pragma omp for ordered (2)
  22   for (int i = 0; i < x; i++)  /* { dg-error "not enough nested loops" } */
  23     /* { dg-error "inner loops must be perfectly nested" "" { target *-*-*} .-1 } */
  24     {
  25       __extension__ ({
  26           for (int j = 0; j < y; j++)  /* { dg-error "loop not permitted in intervening code" } */
  27             do_something ();
  28         });
  29     }
  30 }
  31
  32 /* Check that we don't barf on __extension__ in the inner loop body.  */
  33 void imperfect2 (int x, int y)
  34 {
  35 #pragma omp for collapse (2)
  36   for (int i = 0; i < x; i++)
  37     for (int j = 0; j < y; j++)
  38       {
  39         __extension__ ({
  40             do_something ();
  41           });
  42       }
  43 }
  44
  45 void perfect2 (int x, int y)
  46 {
  47 #pragma omp for ordered (2)
  48   for (int i = 0; i < x; i++)
  49     for (int j = 0; j < y; j++)
  50       {
  51         __extension__ ({
  52             do_something ();
  53           });
  54       }
  55 }