gcc/testsuite/gcc.dg/gomp/pr34692.c

   1 /* PR preprocessor/34692 */
   2 /* { dg-do compile } */
   3 /* { dg-options "-fopenmp -fdump-tree-gimple" } */
   4 /* { dg-final { scan-tree-dump-times "#pragma omp parallel" 1 "gimple" } } */
   5 /* { dg-final { scan-tree-dump-times "#pragma omp for private" 1 "gimple" } } */
   6
   7 void
   8 foo (void)
   9 {
  10   int i;
  11 #define FOO(y, x) y #x
  12 #define BAR(x) x
  13 #define BAZ(x) x
  14 FOO (for (i = 0; i < 10; i++) { const char *vara =,
  15 a
  16 #define P parallel
  17 #pragma omp P
  18 #undef P
  19 #define P for
  20 b
  21 #pragma omp P
  22 #undef P
  23 #define parallel atomic
  24 cde f g h);
  25   }
  26 }
  27
  28 /* { dg-final { cleanup-tree-dump "gimple" } } */