1! { dg-do run }
2
3  integer, allocatable :: a, b(:), c(:,:)
4  logical :: l
5  if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
6!$omp parallel private (a, b, c)
7  if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
8  allocate (a, b(-7:-1), c(2:3, 3:5))
9  if (.not.allocated (a)) call abort
10  if (.not.allocated (b) .or. size (b) /= 7) call abort
11  if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) call abort
12  if (.not.allocated (c) .or. size (c) /= 6) call abort
13  if (size (c, 1) /= 2 .or. size (c, 2) /= 3) call abort
14  if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) call abort
15  if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) call abort
16  a = 4
17  b = 3
18  c = 2
19!$omp end parallel
20  if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
21!$omp parallel firstprivate (a, b, c)
22  if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
23  allocate (a, b(-7:-1), c(2:3, 3:5))
24  if (.not.allocated (a)) call abort
25  if (.not.allocated (b) .or. size (b) /= 7) call abort
26  if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) call abort
27  if (.not.allocated (c) .or. size (c) /= 6) call abort
28  if (size (c, 1) /= 2 .or. size (c, 2) /= 3) call abort
29  if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) call abort
30  if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) call abort
31  a = 4
32  b = 3
33  c = 2
34!$omp end parallel
35  if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort
36  allocate (a, b(6:9), c(3, 8:9))
37  a = 2
38  b = 4
39  c = 5
40  if (.not.allocated (a)) call abort
41  if (.not.allocated (b) .or. size (b) /= 4) call abort
42  if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort
43  if (.not.allocated (c) .or. size (c) /= 6) call abort
44  if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort
45  if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
46  if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort
47!$omp parallel firstprivate (a, b, c)
48  if (.not.allocated (a)) call abort
49  if (.not.allocated (b) .or. size (b) /= 4) call abort
50  if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort
51  if (.not.allocated (c) .or. size (c) /= 6) call abort
52  if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort
53  if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
54  if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort
55  if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) call abort
56  deallocate (a)
57  if (allocated (a)) call abort
58  allocate (a)
59  a = 8
60  b = (/ 1, 2, 3 /)
61  c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 2, 4 /))
62  if (.not.allocated (a)) call abort
63  if (.not.allocated (b) .or. size (b) /= 3) call abort
64  if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) call abort
65  if (.not.allocated (c) .or. size (c) /= 8) call abort
66  if (size (c, 1) /= 2 .or. size (c, 2) /= 4) call abort
67  if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) call abort
68  if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) call abort
69  if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) call abort
70!$omp end parallel
71  if (.not.allocated (a)) call abort
72  if (.not.allocated (b) .or. size (b) /= 4) call abort
73  if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort
74  if (.not.allocated (c) .or. size (c) /= 6) call abort
75  if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort
76  if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
77  if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort
78  if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) call abort
79  l = .false.
80!$omp parallel sections lastprivate (a, b, c) firstprivate (l)
81!$omp section
82  if (.not.allocated (a)) call abort
83  if (l) then
84    if (.not.allocated (b) .or. size (b) /= 6) call abort
85    if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) call abort
86    if (.not.allocated (c) .or. size (c) /= 8) call abort
87    if (size (c, 1) /= 4 .or. size (c, 2) /= 2) call abort
88    if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) call abort
89    if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) call abort
90    if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) call abort
91  else
92    if (.not.allocated (b) .or. size (b) /= 4) call abort
93    if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort
94    if (.not.allocated (c) .or. size (c) /= 6) call abort
95    if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort
96    if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
97    if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort
98  end if
99  l = .true.
100  deallocate (a)
101  if (allocated (a)) call abort
102  allocate (a)
103  a = 8
104  b = (/ 1, 2, 3 /)
105  c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 2, 4 /))
106  if (.not.allocated (a)) call abort
107  if (.not.allocated (b) .or. size (b) /= 3) call abort
108  if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) call abort
109  if (.not.allocated (c) .or. size (c) /= 8) call abort
110  if (size (c, 1) /= 2 .or. size (c, 2) /= 4) call abort
111  if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) call abort
112  if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) call abort
113  if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) call abort
114!$omp section
115  if (.not.allocated (a)) call abort
116  if (l) then
117    if (.not.allocated (b) .or. size (b) /= 3) call abort
118    if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) call abort
119    if (.not.allocated (c) .or. size (c) /= 8) call abort
120    if (size (c, 1) /= 2 .or. size (c, 2) /= 4) call abort
121    if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) call abort
122    if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) call abort
123    if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) call abort
124  else
125    if (.not.allocated (b) .or. size (b) /= 4) call abort
126    if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort
127    if (.not.allocated (c) .or. size (c) /= 6) call abort
128    if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort
129    if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort
130    if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort
131  end if
132  l = .true.
133  deallocate (a)
134  if (allocated (a)) call abort
135  allocate (a)
136  a = 12
137  b = (/ 9, 8, 7, 6, 5, 4 /)
138  c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 4, 2 /))
139  if (.not.allocated (a)) call abort
140  if (.not.allocated (b) .or. size (b) /= 6) call abort
141  if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) call abort
142  if (.not.allocated (c) .or. size (c) /= 8) call abort
143  if (size (c, 1) /= 4 .or. size (c, 2) /= 2) call abort
144  if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) call abort
145  if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) call abort
146  if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) call abort
147!$omp end parallel sections
148  if (.not.allocated (a)) call abort
149  if (.not.allocated (b) .or. size (b) /= 6) call abort
150  if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) call abort
151  if (.not.allocated (c) .or. size (c) /= 8) call abort
152  if (size (c, 1) /= 4 .or. size (c, 2) /= 2) call abort
153  if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) call abort
154  if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) call abort
155  if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) call abort
156end
157