|
0
|
1 /* PR middle-end/33880 */
|
|
|
2 /* { dg-do run } */
|
|
|
3
|
|
|
4 extern void abort (void);
|
|
|
5
|
|
|
6 void
|
|
|
7 test1 (void)
|
|
|
8 {
|
|
|
9 int i = 0, j = 0;
|
|
|
10 void bar (void)
|
|
|
11 {
|
|
|
12 i++;
|
|
|
13 j++;
|
|
|
14 }
|
|
|
15 bar ();
|
|
|
16 #pragma omp parallel for num_threads(4)
|
|
|
17 for (i = 0; i < 100; i++)
|
|
|
18 #pragma omp atomic
|
|
|
19 j += 1;
|
|
|
20 if (j != 101)
|
|
|
21 abort ();
|
|
|
22 #pragma omp parallel for lastprivate(i) num_threads(2)
|
|
|
23 for (i = 0; i < 100; i++)
|
|
|
24 #pragma omp atomic
|
|
|
25 j += 1;
|
|
|
26 if (i != 100)
|
|
|
27 abort ();
|
|
|
28 i = 3;
|
|
|
29 bar ();
|
|
|
30 if (j != 202)
|
|
|
31 abort ();
|
|
|
32 if (i != 4)
|
|
|
33 abort ();
|
|
|
34 }
|
|
|
35
|
|
|
36 void
|
|
|
37 test2 (void)
|
|
|
38 {
|
|
|
39 int i = -1, j = 99, k, l = 9, m = 0;
|
|
|
40 void bar (void)
|
|
|
41 {
|
|
|
42 i++;
|
|
|
43 j++;
|
|
|
44 l++;
|
|
|
45 m++;
|
|
|
46 }
|
|
|
47 bar ();
|
|
|
48 #pragma omp parallel for num_threads(4)
|
|
|
49 for (k = i; k < j; k += l)
|
|
|
50 #pragma omp atomic
|
|
|
51 m += 1;
|
|
|
52 bar ();
|
|
|
53 if (i != 1 || j != 101 || l != 11 || m != 12)
|
|
|
54 abort ();
|
|
|
55 }
|
|
|
56
|
|
|
57 void
|
|
|
58 test3 (void)
|
|
|
59 {
|
|
|
60 int i, j, k, l, m;
|
|
|
61 void bar (void)
|
|
|
62 {
|
|
|
63 #pragma omp parallel for num_threads(4)
|
|
|
64 for (i = j; i < k; i += l)
|
|
|
65 #pragma omp atomic
|
|
|
66 m += 1;
|
|
|
67 }
|
|
|
68 void baz (void)
|
|
|
69 {
|
|
|
70 #pragma omp parallel for num_threads(2) lastprivate(i)
|
|
|
71 for (i = j; i < k * 2; i += l / 2)
|
|
|
72 #pragma omp atomic
|
|
|
73 m += 1;
|
|
|
74 }
|
|
|
75 i = 7;
|
|
|
76 j = 0;
|
|
|
77 k = 100;
|
|
|
78 l = 2;
|
|
|
79 m = 0;
|
|
|
80 bar ();
|
|
|
81 if (j != 0 || k != 100 || l != 2 || m != 50)
|
|
|
82 abort ();
|
|
|
83 baz ();
|
|
|
84 if (i != 200 || j != 0 || k != 100 || l != 2 || m != 250)
|
|
|
85 abort ();
|
|
|
86 }
|
|
|
87
|
|
|
88 void
|
|
|
89 test4 (void)
|
|
|
90 {
|
|
|
91 int i, j, k, l, m = 0;
|
|
|
92 int foo (void)
|
|
|
93 {
|
|
|
94 return j;
|
|
|
95 }
|
|
|
96 int bar (void)
|
|
|
97 {
|
|
|
98 return k;
|
|
|
99 }
|
|
|
100 int baz (void)
|
|
|
101 {
|
|
|
102 return l;
|
|
|
103 }
|
|
|
104 j = 0;
|
|
|
105 k = 1000;
|
|
|
106 l = 2;
|
|
|
107 #pragma omp parallel for num_threads(8) lastprivate(i)
|
|
|
108 for (i = foo (); i < bar (); i += baz ())
|
|
|
109 #pragma omp atomic
|
|
|
110 m += 1;
|
|
|
111 if (i != 1000 || m != 500 || j != 0 || k != 1000 || l != 2)
|
|
|
112 abort ();
|
|
|
113 }
|
|
|
114
|
|
|
115 int
|
|
|
116 main (void)
|
|
|
117 {
|
|
|
118 test1 ();
|
|
|
119 test2 ();
|
|
|
120 test3 ();
|
|
|
121 test4 ();
|
|
|
122 return 0;
|
|
|
123 }
|
