1! Test lowering of OPTIONAL VALUE dummy argument on caller side.
2! RUN: bbc -emit-fir %s -o - | FileCheck %s
3
4! A copy must be made if the actual is a variable (and no copy-out), but care
5! has to be take if the actual argument may be absent at runtime: the copy
6! must be conditional. When the allocation is dynamic, the temp allocation and
7! deallocation are also conditionals.
8
9module test
10interface
11  subroutine scalar(i)
12    integer, optional, value :: i
13  end subroutine
14  subroutine dyn_char(c)
15    character(*), optional, value :: c
16  end subroutine
17  subroutine array(i)
18    integer, optional, value :: i(100)
19  end subroutine
20  subroutine dyn_array(i, n)
21    integer(8) :: n
22    integer, optional, value :: i(n)
23  end subroutine
24  subroutine dyn_char_array(c, n)
25    integer(8) :: n
26    character(*), optional, value :: c(n)
27  end subroutine
28  function returns_ptr()
29    integer, pointer :: returns_ptr
30  end function
31end interface
32contains
33
34! CHECK-LABEL: func @_QMtestPtest_scalar_not_a_var() {
35subroutine test_scalar_not_a_var()
36  call scalar(42)
37! CHECK:  %[[VAL_0:.*]] = fir.alloca i32 {adapt.valuebyref}
38! CHECK:  %[[VAL_1:.*]] = arith.constant 42 : i32
39! CHECK:  fir.store %[[VAL_1]] to %[[VAL_0]] : !fir.ref<i32>
40! CHECK:  fir.call @_QPscalar(%[[VAL_0]]) : (!fir.ref<i32>) -> ()
41end subroutine
42
43! CHECK-LABEL: func @_QMtestPtest_scalar(
44! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
45subroutine test_scalar(i)
46  integer, optional :: i
47  call scalar(i)
48! CHECK:  %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
49! CHECK:  %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<i32>) -> i1
50! CHECK:  %[[VAL_3:.*]] = fir.if %[[VAL_2]] -> (!fir.ref<i32>) {
51! CHECK:    %[[VAL_4:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
52! CHECK:    fir.store %[[VAL_4]] to %[[VAL_1]] : !fir.ref<i32>
53! CHECK:    fir.result %[[VAL_1]] : !fir.ref<i32>
54! CHECK:  } else {
55! CHECK:    %[[VAL_5:.*]] = fir.absent !fir.ref<i32>
56! CHECK:    fir.result %[[VAL_5]] : !fir.ref<i32>
57! CHECK:  }
58! CHECK:  fir.call @_QPscalar(%[[VAL_6:.*]]) : (!fir.ref<i32>) -> ()
59end subroutine
60
61! CHECK-LABEL: func @_QMtestPtest_scalar2(
62! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
63subroutine test_scalar2(i)
64  integer, optional, value :: i
65  call scalar(i)
66! CHECK:  %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
67! CHECK:  %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<i32>) -> i1
68! CHECK:  %[[VAL_3:.*]] = fir.if %[[VAL_2]] -> (!fir.ref<i32>) {
69! CHECK:    %[[VAL_4:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
70! CHECK:    fir.store %[[VAL_4]] to %[[VAL_1]] : !fir.ref<i32>
71! CHECK:    fir.result %[[VAL_1]] : !fir.ref<i32>
72! CHECK:  } else {
73! CHECK:    %[[VAL_5:.*]] = fir.absent !fir.ref<i32>
74! CHECK:    fir.result %[[VAL_5]] : !fir.ref<i32>
75! CHECK:  }
76! CHECK:  fir.call @_QPscalar(%[[VAL_6:.*]]) : (!fir.ref<i32>) -> ()
77end subroutine
78
79! CHECK-LABEL: func @_QMtestPtest_scalar3(
80! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
81subroutine test_scalar3(i)
82  integer, optional :: i
83  ! i must be present when it appears in "()"
84  call scalar((i))
85! CHECK:  %[[VAL_1:.*]] = fir.alloca i32
86! CHECK:  %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
87! CHECK:  %[[VAL_3:.*]] = fir.no_reassoc %[[VAL_2]] : i32
88! CHECK:  fir.store %[[VAL_3]] to %[[VAL_1]] : !fir.ref<i32>
89! CHECK:  fir.call @_QPscalar(%[[VAL_1]]) : (!fir.ref<i32>) -> ()
90end subroutine
91
92! CHECK-LABEL: func @_QMtestPtest_scalar_ptr(
93! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.ptr<i32>>> {fir.bindc_name = "i"}) {
94subroutine test_scalar_ptr(i)
95  integer, pointer :: i
96  call scalar(i)
97! CHECK:  %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
98! CHECK:  %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
99! CHECK:  %[[VAL_3:.*]] = fir.box_addr %[[VAL_2]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
100! CHECK:  %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.ptr<i32>) -> i64
101! CHECK:  %[[VAL_5:.*]] = arith.constant 0 : i64
102! CHECK:  %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
103! CHECK:  %[[VAL_7:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
104! CHECK:  %[[VAL_8:.*]] = fir.box_addr %[[VAL_7]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
105! CHECK:  %[[VAL_9:.*]] = fir.if %[[VAL_6]] -> (!fir.ref<i32>) {
106! CHECK:    %[[VAL_10:.*]] = fir.load %[[VAL_8]] : !fir.ptr<i32>
107! CHECK:    fir.store %[[VAL_10]] to %[[VAL_1]] : !fir.ref<i32>
108! CHECK:    fir.result %[[VAL_1]] : !fir.ref<i32>
109! CHECK:  } else {
110! CHECK:    %[[VAL_11:.*]] = fir.absent !fir.ref<i32>
111! CHECK:    fir.result %[[VAL_11]] : !fir.ref<i32>
112! CHECK:  }
113! CHECK:  fir.call @_QPscalar(%[[VAL_12:.*]]) : (!fir.ref<i32>) -> ()
114end subroutine
115
116! CHECK-LABEL: func @_QMtestPtest_scalar_simple_var(
117! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"}) {
118subroutine test_scalar_simple_var(i)
119  integer :: i
120  call scalar(i)
121! CHECK:  %[[VAL_1:.*]] = fir.alloca i32
122! CHECK:  %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
123! CHECK:  fir.store %[[VAL_2]] to %[[VAL_1]] : !fir.ref<i32>
124! CHECK:  fir.call @_QPscalar(%[[VAL_1]]) : (!fir.ref<i32>) -> ()
125end subroutine
126
127
128! CHECK-LABEL: func @_QMtestPtest_scalar_alloc(
129! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.heap<i32>>> {fir.bindc_name = "i"}) {
130subroutine test_scalar_alloc(i)
131  integer, allocatable :: i
132  call scalar(i)
133! CHECK:  %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
134! CHECK:  %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.heap<i32>>>
135! CHECK:  %[[VAL_3:.*]] = fir.box_addr %[[VAL_2]] : (!fir.box<!fir.heap<i32>>) -> !fir.heap<i32>
136! CHECK:  %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.heap<i32>) -> i64
137! CHECK:  %[[VAL_5:.*]] = arith.constant 0 : i64
138! CHECK:  %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
139! CHECK:  %[[VAL_7:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.heap<i32>>>
140! CHECK:  %[[VAL_8:.*]] = fir.box_addr %[[VAL_7]] : (!fir.box<!fir.heap<i32>>) -> !fir.heap<i32>
141! CHECK:  %[[VAL_9:.*]] = fir.if %[[VAL_6]] -> (!fir.ref<i32>) {
142! CHECK:    %[[VAL_10:.*]] = fir.load %[[VAL_8]] : !fir.heap<i32>
143! CHECK:    fir.store %[[VAL_10]] to %[[VAL_1]] : !fir.ref<i32>
144! CHECK:    fir.result %[[VAL_1]] : !fir.ref<i32>
145! CHECK:  } else {
146! CHECK:    %[[VAL_11:.*]] = fir.absent !fir.ref<i32>
147! CHECK:    fir.result %[[VAL_11]] : !fir.ref<i32>
148! CHECK:  }
149! CHECK:  fir.call @_QPscalar(%[[VAL_12:.*]]) : (!fir.ref<i32>) -> ()
150end subroutine
151
152! CHECK-LABEL: func @_QMtestPtest_ptr_2() {
153subroutine test_ptr_2()
154  call scalar(returns_ptr())
155! CHECK:  %[[VAL_0:.*]] = fir.alloca i32 {adapt.valuebyref}
156! CHECK:  %[[VAL_1:.*]] = fir.alloca !fir.box<!fir.ptr<i32>> {bindc_name = ".result"}
157! CHECK:  %[[VAL_2:.*]] = fir.call @_QPreturns_ptr() : () -> !fir.box<!fir.ptr<i32>>
158! CHECK:  fir.save_result %[[VAL_2]] to %[[VAL_1]] : !fir.box<!fir.ptr<i32>>, !fir.ref<!fir.box<!fir.ptr<i32>>>
159! CHECK:  %[[VAL_3:.*]] = fir.load %[[VAL_1]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
160! CHECK:  %[[VAL_4:.*]] = fir.box_addr %[[VAL_3]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
161! CHECK:  %[[VAL_5:.*]] = fir.convert %[[VAL_4]] : (!fir.ptr<i32>) -> i64
162! CHECK:  %[[VAL_6:.*]] = arith.constant 0 : i64
163! CHECK:  %[[VAL_7:.*]] = arith.cmpi ne, %[[VAL_5]], %[[VAL_6]] : i64
164! CHECK:  %[[VAL_8:.*]] = fir.load %[[VAL_1]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
165! CHECK:  %[[VAL_9:.*]] = fir.box_addr %[[VAL_8]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
166! CHECK:  %[[VAL_10:.*]] = fir.if %[[VAL_7]] -> (!fir.ref<i32>) {
167! CHECK:    %[[VAL_11:.*]] = fir.load %[[VAL_9]] : !fir.ptr<i32>
168! CHECK:    fir.store %[[VAL_11]] to %[[VAL_0]] : !fir.ref<i32>
169! CHECK:    fir.result %[[VAL_0]] : !fir.ref<i32>
170! CHECK:  } else {
171! CHECK:    %[[VAL_12:.*]] = fir.absent !fir.ref<i32>
172! CHECK:    fir.result %[[VAL_12]] : !fir.ref<i32>
173! CHECK:  }
174! CHECK:  fir.call @_QPscalar(%[[VAL_13:.*]]) : (!fir.ref<i32>) -> ()
175end subroutine
176
177! CHECK-LABEL: func @_QMtestPtest_array(
178! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<!fir.array<100xi32>> {fir.bindc_name = "i", fir.optional}) {
179subroutine test_array(i)
180  integer, optional :: i(100)
181  call array(i)
182! CHECK:  %[[VAL_1:.*]] = arith.constant 100 : index
183! CHECK:  %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<!fir.array<100xi32>>) -> i1
184! CHECK:  %[[VAL_3:.*]] = fir.if %[[VAL_2]] -> (!fir.heap<!fir.array<100xi32>>) {
185! CHECK:    %[[VAL_4:.*]] = fir.allocmem !fir.array<100xi32>, %[[VAL_1]] {uniq_name = ".copy"}
186! CHECK:    %[[VAL_5:.*]] = fir.shape %[[VAL_1]] : (index) -> !fir.shape<1>
187! CHECK:    %[[VAL_6:.*]] = fir.array_load %[[VAL_4]](%[[VAL_5]]) : (!fir.heap<!fir.array<100xi32>>, !fir.shape<1>) -> !fir.array<100xi32>
188! CHECK:    %[[VAL_7:.*]] = fir.shape %[[VAL_1]] : (index) -> !fir.shape<1>
189! CHECK:    %[[VAL_8:.*]] = fir.array_load %[[VAL_0]](%[[VAL_7]]) : (!fir.ref<!fir.array<100xi32>>, !fir.shape<1>) -> !fir.array<100xi32>
190! CHECK:    %[[VAL_9:.*]] = arith.constant 1 : index
191! CHECK:    %[[VAL_10:.*]] = arith.constant 0 : index
192! CHECK:    %[[VAL_11:.*]] = arith.subi %[[VAL_1]], %[[VAL_9]] : index
193! CHECK:    %[[VAL_12:.*]] = fir.do_loop %[[VAL_13:.*]] = %[[VAL_10]] to %[[VAL_11]] step %[[VAL_9]] unordered iter_args(%[[VAL_14:.*]] = %[[VAL_6]]) -> (!fir.array<100xi32>) {
194! CHECK:      %[[VAL_15:.*]] = fir.array_fetch %[[VAL_8]], %[[VAL_13]] : (!fir.array<100xi32>, index) -> i32
195! CHECK:      %[[VAL_16:.*]] = fir.array_update %[[VAL_14]], %[[VAL_15]], %[[VAL_13]] : (!fir.array<100xi32>, i32, index) -> !fir.array<100xi32>
196! CHECK:      fir.result %[[VAL_16]] : !fir.array<100xi32>
197! CHECK:    }
198! CHECK:    fir.array_merge_store %[[VAL_6]], %[[VAL_17:.*]] to %[[VAL_4]] : !fir.array<100xi32>, !fir.array<100xi32>, !fir.heap<!fir.array<100xi32>>
199! CHECK:    fir.result %[[VAL_4]] : !fir.heap<!fir.array<100xi32>>
200! CHECK:  } else {
201! CHECK:    %[[VAL_18:.*]] = fir.zero_bits !fir.heap<!fir.array<100xi32>>
202! CHECK:    fir.result %[[VAL_18]] : !fir.heap<!fir.array<100xi32>>
203! CHECK:  }
204! CHECK:  %[[VAL_19:.*]] = fir.convert %[[VAL_20:.*]] : (!fir.heap<!fir.array<100xi32>>) -> !fir.ref<!fir.array<100xi32>>
205! CHECK:  fir.call @_QParray(%[[VAL_19]]) : (!fir.ref<!fir.array<100xi32>>) -> ()
206! CHECK:  fir.if %[[VAL_2]] {
207! CHECK:    fir.freemem %[[VAL_20]] : !fir.heap<!fir.array<100xi32>>
208! CHECK:  }
209end subroutine
210
211! CHECK-LABEL: func @_QMtestPtest_array2(
212! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
213subroutine test_array2(i, n)
214  integer(8) :: n
215  integer, optional, value :: i(n)
216  call array(i)
217! CHECK-SAME:  %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
218! CHECK:  %[[VAL_2:.*]] = fir.load %[[VAL_1]] : !fir.ref<i64>
219! CHECK:  %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (i64) -> index
220! CHECK:  %[[VAL_4:.*]] = arith.constant 0 : index
221! CHECK:  %[[VAL_5:.*]] = arith.cmpi sgt, %[[VAL_3]], %[[VAL_4]] : index
222! CHECK:  %[[VAL_6:.*]] = arith.select %[[VAL_5]], %[[VAL_3]], %[[VAL_4]] : index
223! CHECK:  %[[VAL_7:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<!fir.array<?xi32>>) -> i1
224! CHECK:  %[[VAL_8:.*]] = fir.if %[[VAL_7]] -> (!fir.heap<!fir.array<?xi32>>) {
225! CHECK:    %[[VAL_9:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_6]] {uniq_name = ".copy"}
226! CHECK:    %[[VAL_17:.*]] = fir.do_loop
227! CHECK:    }
228! CHECK:    fir.array_merge_store %{{.*}}, %[[VAL_17]] to %[[VAL_9]] : !fir.array<?xi32>, !fir.array<?xi32>, !fir.heap<!fir.array<?xi32>>
229! CHECK:    fir.result %[[VAL_9]] : !fir.heap<!fir.array<?xi32>>
230! CHECK:  } else {
231! CHECK:    %[[VAL_23:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
232! CHECK:    fir.result %[[VAL_23]] : !fir.heap<!fir.array<?xi32>>
233! CHECK:  }
234! CHECK:  %[[VAL_24:.*]] = fir.convert %[[VAL_8]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<100xi32>>
235! CHECK:  fir.call @_QParray(%[[VAL_24]]) : (!fir.ref<!fir.array<100xi32>>) -> ()
236! CHECK:  fir.if %[[VAL_7]] {
237! CHECK:    fir.freemem %[[VAL_8]] : !fir.heap<!fir.array<?xi32>>
238! CHECK:  }
239end subroutine
240
241! CHECK-LABEL: func @_QMtestPtest_dyn_array(
242! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
243! CHECK-SAME:  %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
244subroutine test_dyn_array(i, n)
245  integer(8) :: n
246  integer, optional :: i(n)
247  call dyn_array(i, n)
248! CHECK:  %[[VAL_2:.*]] = fir.load %[[VAL_1]] : !fir.ref<i64>
249! CHECK:  %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (i64) -> index
250! CHECK:  %[[VAL_4:.*]] = arith.constant 0 : index
251! CHECK:  %[[VAL_5:.*]] = arith.cmpi sgt, %[[VAL_3]], %[[VAL_4]] : index
252! CHECK:  %[[VAL_6:.*]] = arith.select %[[VAL_5]], %[[VAL_3]], %[[VAL_4]] : index
253! CHECK:  %[[VAL_7:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<!fir.array<?xi32>>) -> i1
254! CHECK:  %[[VAL_8:.*]] = fir.if %[[VAL_7]] -> (!fir.heap<!fir.array<?xi32>>) {
255! CHECK:    %[[VAL_9:.*]] = fir.allocmem !fir.array<?xi32>, %{{.*}} {uniq_name = ".copy"}
256! CHECK:    %[[VAL_17:.*]] = fir.do_loop
257! CHECK:    }
258! CHECK:    fir.array_merge_store %{{.*}}, %[[VAL_17]] to %[[VAL_9]] : !fir.array<?xi32>, !fir.array<?xi32>, !fir.heap<!fir.array<?xi32>>
259! CHECK:    fir.result %[[VAL_9]] : !fir.heap<!fir.array<?xi32>>
260! CHECK:  } else {
261! CHECK:    %[[VAL_23:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
262! CHECK:    fir.result %[[VAL_23]] : !fir.heap<!fir.array<?xi32>>
263! CHECK:  }
264! CHECK:  %[[VAL_24:.*]] = fir.convert %[[VAL_8]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<?xi32>>
265! CHECK:  fir.call @_QPdyn_array(%[[VAL_24]], %[[VAL_1]]) : (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
266! CHECK:  fir.if %[[VAL_7]] {
267! CHECK:    fir.freemem %[[VAL_8]] : !fir.heap<!fir.array<?xi32>>
268! CHECK:  }
269end subroutine
270
271! CHECK-LABEL: func @_QMtestPtest_dyn_array_from_assumed(
272! CHECK-SAME:  %[[VAL_0:.*]]: !fir.box<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
273! CHECK-SAME:  %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
274subroutine test_dyn_array_from_assumed(i, n)
275  integer(8) :: n
276  integer, optional :: i(:)
277  call dyn_array(i, n)
278! CHECK:  %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.box<!fir.array<?xi32>>) -> i1
279! CHECK:  %[[VAL_3:.*]] = fir.zero_bits !fir.ref<!fir.array<?xi32>>
280! CHECK:  %[[VAL_4:.*]] = arith.constant 0 : index
281! CHECK:  %[[VAL_5:.*]] = fir.shape %[[VAL_4]] : (index) -> !fir.shape<1>
282! CHECK:  %[[VAL_6:.*]] = fir.embox %[[VAL_3]](%[[VAL_5]]) : (!fir.ref<!fir.array<?xi32>>, !fir.shape<1>) -> !fir.box<!fir.array<?xi32>>
283! CHECK:  %[[VAL_7:.*]] = arith.select %[[VAL_2]], %[[VAL_0]], %[[VAL_6]] : !fir.box<!fir.array<?xi32>>
284! CHECK:  %[[VAL_8:.*]] = fir.if %[[VAL_2]] -> (!fir.heap<!fir.array<?xi32>>) {
285! CHECK:    %[[VAL_9:.*]] = arith.constant 0 : index
286! CHECK:    %[[VAL_10:.*]]:3 = fir.box_dims %[[VAL_7]], %[[VAL_9]] : (!fir.box<!fir.array<?xi32>>, index) -> (index, index, index)
287! CHECK:    %[[VAL_11:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_10]]#1 {uniq_name = ".copy"}
288! CHECK:    %[[VAL_18:.*]] = fir.do_loop
289! CHECK:    }
290! CHECK:    fir.array_merge_store %{{.*}}, %[[VAL_18]] to %[[VAL_11]] : !fir.array<?xi32>, !fir.array<?xi32>, !fir.heap<!fir.array<?xi32>>
291! CHECK:    fir.result %[[VAL_11]] : !fir.heap<!fir.array<?xi32>>
292! CHECK:  } else {
293! CHECK:    %[[VAL_24:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
294! CHECK:    fir.result %[[VAL_24]] : !fir.heap<!fir.array<?xi32>>
295! CHECK:  }
296! CHECK:  %[[VAL_25:.*]] = fir.convert %[[VAL_8]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<?xi32>>
297! CHECK:  fir.call @_QPdyn_array(%[[VAL_25]], %[[VAL_1]]) : (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
298! CHECK:  fir.if %[[VAL_2]] {
299! CHECK:    fir.freemem %[[VAL_8]] : !fir.heap<!fir.array<?xi32>>
300! CHECK:  }
301end subroutine
302
303! CHECK-LABEL: func @_QMtestPtest_array_ptr(
304! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>> {fir.bindc_name = "i"}) {
305subroutine test_array_ptr(i)
306  integer, pointer :: i(:)
307  call array(i)
308! CHECK:  %[[VAL_1:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>
309! CHECK:  %[[VAL_2:.*]] = fir.box_addr %[[VAL_1]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>) -> !fir.ptr<!fir.array<?xi32>>
310! CHECK:  %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (!fir.ptr<!fir.array<?xi32>>) -> i64
311! CHECK:  %[[VAL_4:.*]] = arith.constant 0 : i64
312! CHECK:  %[[VAL_5:.*]] = arith.cmpi ne, %[[VAL_3]], %[[VAL_4]] : i64
313! CHECK:  %[[VAL_6:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>
314! CHECK:  %[[VAL_7:.*]] = arith.constant 0 : index
315! CHECK:  %[[VAL_8:.*]]:3 = fir.box_dims %[[VAL_6]], %[[VAL_7]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>, index) -> (index, index, index)
316! CHECK:  %[[VAL_9:.*]] = fir.if %[[VAL_5]] -> (!fir.heap<!fir.array<?xi32>>) {
317! CHECK:    %[[VAL_10:.*]] = arith.constant 0 : index
318! CHECK:    %[[VAL_11:.*]]:3 = fir.box_dims %[[VAL_6]], %[[VAL_10]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>, index) -> (index, index, index)
319! CHECK:    %[[VAL_12:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_11]]#1 {uniq_name = ".copy"}
320! CHECK:    %[[VAL_20:.*]] = fir.do_loop
321! CHECK:    }
322! CHECK:    fir.array_merge_store %{{.*}}, %[[VAL_20]] to %[[VAL_12]] : !fir.array<?xi32>, !fir.array<?xi32>, !fir.heap<!fir.array<?xi32>>
323! CHECK:    fir.result %[[VAL_12]] : !fir.heap<!fir.array<?xi32>>
324! CHECK:  } else {
325! CHECK:    %[[VAL_26:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
326! CHECK:    fir.result %[[VAL_26]] : !fir.heap<!fir.array<?xi32>>
327! CHECK:  }
328! CHECK:  %[[VAL_27:.*]] = fir.convert %[[VAL_9]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<100xi32>>
329! CHECK:  fir.call @_QParray(%[[VAL_27]]) : (!fir.ref<!fir.array<100xi32>>) -> ()
330! CHECK:  fir.if %[[VAL_5]] {
331! CHECK:    fir.freemem %[[VAL_9]] : !fir.heap<!fir.array<?xi32>>
332! CHECK:  }
333end subroutine
334
335! CHECK-LABEL: func @_QMtestPtest_char(
336! CHECK-SAME:  %[[VAL_0:.*]]: !fir.boxchar<1> {fir.bindc_name = "c", fir.optional}) {
337subroutine test_char(c)
338  character(*), optional :: c
339  call dyn_char(c)
340! CHECK:  %[[VAL_1:.*]]:2 = fir.unboxchar %[[VAL_0]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
341! CHECK:  %[[VAL_2:.*]] = fir.is_present %[[VAL_1]]#0 : (!fir.ref<!fir.char<1,?>>) -> i1
342! CHECK:  %[[VAL_3:.*]] = arith.constant 0 : index
343! CHECK:  %[[VAL_4:.*]] = arith.select %[[VAL_2]], %[[VAL_1]]#1, %[[VAL_3]] : index
344! CHECK:  %[[VAL_5:.*]] = fir.alloca !fir.char<1,?>(%[[VAL_4]] : index) {adapt.valuebyref}
345! CHECK:  %[[VAL_6:.*]] = fir.if %[[VAL_2]] -> (!fir.ref<!fir.char<1,?>>) {
346! CHECK:    %[[VAL_13:.*]] = fir.convert %[[VAL_5]] : (!fir.ref<!fir.char<1,?>>) -> !fir.ref<i8>
347! CHECK:    %[[VAL_14:.*]] = fir.convert %[[VAL_1]]#0 : (!fir.ref<!fir.char<1,?>>) -> !fir.ref<i8>
348! CHECK:    fir.call @llvm.memmove.p0.p0.i64(%[[VAL_13]], %[[VAL_14]], %{{.*}}, %{{.*}}) : (!fir.ref<i8>, !fir.ref<i8>, i64, i1) -> ()
349! CHECK:    fir.result %[[VAL_5]] : !fir.ref<!fir.char<1,?>>
350! CHECK:  } else {
351! CHECK:    %[[VAL_24:.*]] = fir.absent !fir.ref<!fir.char<1,?>>
352! CHECK:    fir.result %[[VAL_24]] : !fir.ref<!fir.char<1,?>>
353! CHECK:  }
354! CHECK:  %[[VAL_25:.*]] = fir.emboxchar %[[VAL_6]], %[[VAL_4]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
355! CHECK:  fir.call @_QPdyn_char(%[[VAL_25]]) : (!fir.boxchar<1>) -> ()
356end subroutine
357
358! CHECK-LABEL: func @_QMtestPtest_char_ptr(
359! CHECK-SAME:  %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>> {fir.bindc_name = "c"}) {
360subroutine test_char_ptr(c)
361  character(:), pointer :: c
362  call dyn_char(c)
363! CHECK:  %[[VAL_1:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
364! CHECK:  %[[VAL_2:.*]] = fir.box_addr %[[VAL_1]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> !fir.ptr<!fir.char<1,?>>
365! CHECK:  %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (!fir.ptr<!fir.char<1,?>>) -> i64
366! CHECK:  %[[VAL_4:.*]] = arith.constant 0 : i64
367! CHECK:  %[[VAL_5:.*]] = arith.cmpi ne, %[[VAL_3]], %[[VAL_4]] : i64
368! CHECK:  %[[VAL_6:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
369! CHECK:  %[[VAL_7:.*]] = fir.box_elesize %[[VAL_6]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> index
370! CHECK:  %[[VAL_8:.*]] = fir.box_addr %[[VAL_6]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> !fir.ptr<!fir.char<1,?>>
371! CHECK:  %[[VAL_9:.*]] = arith.constant 0 : index
372! CHECK:  %[[VAL_10:.*]] = arith.select %[[VAL_5]], %[[VAL_7]], %[[VAL_9]] : index
373! CHECK:  %[[VAL_11:.*]] = fir.alloca !fir.char<1,?>(%[[VAL_10]] : index) {adapt.valuebyref}
374! CHECK:  %[[VAL_12:.*]] = fir.if %[[VAL_5]] -> (!fir.ref<!fir.char<1,?>>) {
375! CHECK:    %[[VAL_19:.*]] = fir.convert %[[VAL_11]] : (!fir.ref<!fir.char<1,?>>) -> !fir.ref<i8>
376! CHECK:    %[[VAL_20:.*]] = fir.convert %[[VAL_8]] : (!fir.ptr<!fir.char<1,?>>) -> !fir.ref<i8>
377! CHECK:    fir.call @llvm.memmove.p0.p0.i64(%[[VAL_19]], %[[VAL_20]], %{{.*}}, %{{.*}}) : (!fir.ref<i8>, !fir.ref<i8>, i64, i1) -> ()
378! CHECK:    fir.result %[[VAL_11]] : !fir.ref<!fir.char<1,?>>
379! CHECK:  } else {
380! CHECK:    %[[VAL_30:.*]] = fir.absent !fir.ref<!fir.char<1,?>>
381! CHECK:    fir.result %[[VAL_30]] : !fir.ref<!fir.char<1,?>>
382! CHECK:  }
383! CHECK:  %[[VAL_31:.*]] = fir.emboxchar %[[VAL_12]], %[[VAL_10]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
384! CHECK:  fir.call @_QPdyn_char(%[[VAL_31]]) : (!fir.boxchar<1>) -> ()
385end subroutine
386
387! CHECK-LABEL: func @_QMtestPtest_char_array(
388! CHECK-SAME:  %[[VAL_0:.*]]: !fir.box<!fir.array<?x!fir.char<1,?>>> {fir.bindc_name = "c", fir.optional}) {
389subroutine test_char_array(c)
390  integer(8) :: n
391  character(*), optional :: c(:)
392  call dyn_char_array(c, n)
393! CHECK:  %[[VAL_1:.*]] = fir.alloca i64 {bindc_name = "n", uniq_name = "_QMtestFtest_char_arrayEn"}
394! CHECK:  %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> i1
395! CHECK:  %[[VAL_3:.*]] = fir.zero_bits !fir.ref<!fir.array<?x!fir.char<1,?>>>
396! CHECK:  %[[VAL_4:.*]] = arith.constant 0 : index
397! CHECK:  %[[VAL_5:.*]] = fir.shape %[[VAL_4]] : (index) -> !fir.shape<1>
398! CHECK:  %[[VAL_6:.*]] = arith.constant 0 : index
399! CHECK:  %[[VAL_7:.*]] = fir.embox %[[VAL_3]](%[[VAL_5]]) typeparams %[[VAL_6]] : (!fir.ref<!fir.array<?x!fir.char<1,?>>>, !fir.shape<1>, index) -> !fir.box<!fir.array<?x!fir.char<1,?>>>
400! CHECK:  %[[VAL_8:.*]] = arith.select %[[VAL_2]], %[[VAL_0]], %[[VAL_7]] : !fir.box<!fir.array<?x!fir.char<1,?>>>
401! CHECK:  %[[VAL_9:.*]] = fir.if %[[VAL_2]] -> (!fir.heap<!fir.array<?x!fir.char<1,?>>>) {
402! CHECK:    %[[VAL_10:.*]] = arith.constant 0 : index
403! CHECK:    %[[VAL_11:.*]]:3 = fir.box_dims %[[VAL_8]], %[[VAL_10]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>, index) -> (index, index, index)
404! CHECK:    %[[VAL_12:.*]] = fir.box_elesize %[[VAL_8]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> index
405! CHECK:    %[[VAL_13:.*]] = fir.allocmem !fir.array<?x!fir.char<1,?>>(%[[VAL_12]] : index), %[[VAL_11]]#1 {uniq_name = ".copy"}
406! CHECK:    %[[VAL_20:.*]] = fir.do_loop {{.*}}
407! CHECK:      fir.call @llvm.memmove.p0.p0.i64
408! CHECK:    }
409! CHECK:    fir.array_merge_store %{{.*}}, %[[VAL_20]] to %[[VAL_13]] typeparams %[[VAL_12]] : !fir.array<?x!fir.char<1,?>>, !fir.array<?x!fir.char<1,?>>, !fir.heap<!fir.array<?x!fir.char<1,?>>>, index
410! CHECK:    fir.result %[[VAL_13]] : !fir.heap<!fir.array<?x!fir.char<1,?>>>
411! CHECK:  } else {
412! CHECK:    %[[VAL_45:.*]] = fir.zero_bits !fir.heap<!fir.array<?x!fir.char<1,?>>>
413! CHECK:    fir.result %[[VAL_45]] : !fir.heap<!fir.array<?x!fir.char<1,?>>>
414! CHECK:  }
415! CHECK:  %[[VAL_46:.*]] = fir.box_elesize %[[VAL_8]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> index
416! CHECK:  %[[VAL_47:.*]] = fir.convert %[[VAL_9]] : (!fir.heap<!fir.array<?x!fir.char<1,?>>>) -> !fir.ref<!fir.char<1,?>>
417! CHECK:  %[[VAL_49:.*]] = fir.emboxchar %[[VAL_47]], %[[VAL_46]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
418! CHECK:  fir.call @_QPdyn_char_array(%[[VAL_49]], %[[VAL_1]]) : (!fir.boxchar<1>, !fir.ref<i64>) -> ()
419! CHECK:  fir.if %[[VAL_2]] {
420! CHECK:    fir.freemem %[[VAL_9]] : !fir.heap<!fir.array<?x!fir.char<1,?>>>
421! CHECK:  }
422end subroutine
423end
424