|
0
|
1 /* PR middle-end/35130 */
|
|
|
2
|
|
|
3 extern void abort (void);
|
|
|
4
|
|
|
5 void
|
|
|
6 f1 (void)
|
|
|
7 {
|
|
|
8 int a[4], k;
|
|
|
9 void nested (int x)
|
|
|
10 {
|
|
|
11 a[x] = 42;
|
|
|
12 }
|
|
|
13
|
|
|
14 for (k = 0; k < 4; k++)
|
|
|
15 a[k] = 0;
|
|
|
16 #pragma omp parallel for
|
|
|
17 for (k = 0; k < 4; k++)
|
|
|
18 nested (k);
|
|
|
19
|
|
|
20 if (a[0] != 42 || a[1] != 42 || a[2] != 42 || a[3] != 42)
|
|
|
21 abort ();
|
|
|
22 }
|
|
|
23
|
|
|
24 void
|
|
|
25 f2 (void)
|
|
|
26 {
|
|
|
27 int a[4], k;
|
|
|
28 void nested (void)
|
|
|
29 {
|
|
|
30 int l;
|
|
|
31 void nested2 (int x)
|
|
|
32 {
|
|
|
33 a[x] = 42;
|
|
|
34 }
|
|
|
35 #pragma omp parallel for
|
|
|
36 for (l = 0; l < 4; l++)
|
|
|
37 nested2 (l);
|
|
|
38 }
|
|
|
39
|
|
|
40 for (k = 0; k < 4; k++)
|
|
|
41 a[k] = 0;
|
|
|
42
|
|
|
43 nested ();
|
|
|
44
|
|
|
45 if (a[0] != 42 || a[1] != 42 || a[2] != 42 || a[3] != 42)
|
|
|
46 abort ();
|
|
|
47 }
|
|
|
48
|
|
|
49 void
|
|
|
50 f3 (void)
|
|
|
51 {
|
|
|
52 int a[4], b[4], c[4], k;
|
|
|
53 void nested (int x)
|
|
|
54 {
|
|
|
55 a[x] = b[x] = c[x] = 42;
|
|
|
56 }
|
|
|
57
|
|
|
58 for (k = 0; k < 4; k++)
|
|
|
59 a[k] = b[k] = c[k] = 0;
|
|
|
60 nested (0);
|
|
|
61
|
|
|
62 #pragma omp parallel
|
|
|
63 {
|
|
|
64 #pragma omp single
|
|
|
65 {
|
|
|
66 a[1] = 43;
|
|
|
67 b[1] = 43;
|
|
|
68 }
|
|
|
69 #pragma omp parallel
|
|
|
70 {
|
|
|
71 #pragma omp single
|
|
|
72 {
|
|
|
73 b[2] = 44;
|
|
|
74 c[2] = 44;
|
|
|
75 }
|
|
|
76 }
|
|
|
77 }
|
|
|
78
|
|
|
79 if (a[0] != 42 || a[1] != 43 || a[2] != 0 || a[3] != 0)
|
|
|
80 abort ();
|
|
|
81 if (b[0] != 42 || b[1] != 43 || b[2] != 44 || b[3] != 0)
|
|
|
82 abort ();
|
|
|
83 if (c[0] != 42 || c[1] != 0 || c[2] != 44 || c[3] != 0)
|
|
|
84 abort ();
|
|
|
85 }
|
|
|
86
|
|
|
87 void
|
|
|
88 f4 (void)
|
|
|
89 {
|
|
|
90 int a[4], b[4], c[4], k;
|
|
|
91 void nested ()
|
|
|
92 {
|
|
|
93 #pragma omp parallel
|
|
|
94 {
|
|
|
95 #pragma omp single
|
|
|
96 {
|
|
|
97 a[1] = 43;
|
|
|
98 b[1] = 43;
|
|
|
99 }
|
|
|
100 #pragma omp parallel
|
|
|
101 {
|
|
|
102 #pragma omp single
|
|
|
103 {
|
|
|
104 b[2] = 44;
|
|
|
105 c[2] = 44;
|
|
|
106 }
|
|
|
107 }
|
|
|
108 }
|
|
|
109 }
|
|
|
110
|
|
|
111 for (k = 0; k < 4; k++)
|
|
|
112 a[k] = b[k] = c[k] = k == 0 ? 42 : 0;
|
|
|
113 nested ();
|
|
|
114
|
|
|
115 if (a[0] != 42 || a[1] != 43 || a[2] != 0 || a[3] != 0)
|
|
|
116 abort ();
|
|
|
117 if (b[0] != 42 || b[1] != 43 || b[2] != 44 || b[3] != 0)
|
|
|
118 abort ();
|
|
|
119 if (c[0] != 42 || c[1] != 0 || c[2] != 44 || c[3] != 0)
|
|
|
120 abort ();
|
|
|
121 }
|
|
|
122
|
|
|
123 int
|
|
|
124 main (void)
|
|
|
125 {
|
|
|
126 f1 ();
|
|
|
127 f2 ();
|
|
|
128 f3 ();
|
|
|
129 f4 ();
|
|
|
130 return 0;
|
|
|
131 }
|
