OSDN Git Service

PR middle-end/54017
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / c-c++-common / gomp / pr54017.c
1 /* PR middle-end/54017 */
2 /* { dg-do compile } */
3 /* { dg-options "-fopenmp" } */
4
5 void
6 f1 (void)
7 {
8 #pragma omp parallel sections
9   {
10 #pragma omp section
11     {
12       for (;;)
13         ;
14     }
15   }
16 }
17
18 int
19 f2 (void)
20 {
21   int i = 0;
22 #pragma omp parallel
23 #pragma omp sections reduction(+:i)
24   {
25 #pragma omp section
26     {
27       for (;;)
28         ;
29     }
30   }
31   return i;
32 }
33
34 void
35 f3 (void)
36 {
37 #pragma omp parallel sections
38   {
39 #pragma omp section
40     {
41       for (;;)
42         ;
43     }
44 #pragma omp section
45     ;
46   }
47 }
48
49 int
50 f4 (void)
51 {
52   int i = 0;
53 #pragma omp parallel
54 #pragma omp sections reduction(+:i)
55   {
56 #pragma omp section
57     {
58       for (;;)
59         ;
60     }
61 #pragma omp section
62     ;
63   }
64   return i;
65 }