OSDN Git Service

PR preprocessor/34692
[pf3gnuchains/gcc-fork.git] / 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 }