@@ -11,7 +11,7 @@ real function real_func(x)
1111 real :: x
1212 end function
1313 character (:) function char_func(x)
14- pointer :: char_func
14+ pointer :: char_func
1515 integer :: x
1616 end function
1717 subroutine sub (x )
@@ -148,7 +148,7 @@ subroutine sub5()
148148use m
149149 procedure (real ), pointer :: p3
150150
151- p3 = > real_func
151+ p3 = > real_func
152152! CHECK: %[[VAL_0:.*]] = fir.alloca !fir.boxproc<() -> f32> {bindc_name = "p3", uniq_name = "_QFsub5Ep3"}
153153! CHECK: %[[VAL_1:.*]] = fir.zero_bits () -> f32
154154! CHECK: %[[VAL_2:.*]] = fir.emboxproc %[[VAL_1]] : (() -> f32) -> !fir.boxproc<() -> f32>
@@ -165,7 +165,7 @@ subroutine sub6()
165165 procedure (), pointer :: p4
166166 real :: r
167167
168- p4 = > sub
168+ p4 = > sub
169169! CHECK: %[[VAL_0:.*]] = fir.alloca !fir.boxproc<() -> ()> {bindc_name = "p4", uniq_name = "_QFsub6Ep4"}
170170! CHECK: %[[VAL_1:.*]] = fir.zero_bits () -> ()
171171! CHECK: %[[VAL_2:.*]] = fir.emboxproc %[[VAL_1]] : (() -> ()) -> !fir.boxproc<() -> ()>
@@ -197,7 +197,7 @@ subroutine sub7(p1, p2)
197197
198198 call foo2(p2)
199199! CHECK: fir.call @_QPfoo2(%[[VAL_1]]#0) fastmath<contract> : (!fir.ref<!fir.boxproc<() -> ()>>) -> ()
200- end
200+ end
201201
202202subroutine sub8 ()
203203use m
@@ -338,7 +338,7 @@ subroutine sub12()
338338! CHECK: %[[VAL_16:.*]]:2 = hlfir.declare %[[VAL_0]] {uniq_name = ".tmp.intrinsic_result"} : (!fir.ref<!fir.boxproc<(!fir.ref<i32>) -> !fir.box<!fir.ptr<!fir.char<1,?>>>>>) -> (!fir.ref<!fir.boxproc<(!fir.ref<i32>) -> !fir.box<!fir.ptr<!fir.char<1,?>>>>>, !fir.ref<!fir.boxproc<(!fir.ref<i32>) -> !fir.box<!fir.ptr<!fir.char<1,?>>>>>)
339339! CHECK: %[[VAL_17:.*]] = fir.convert %[[VAL_16]]#0 : (!fir.ref<!fir.boxproc<(!fir.ref<i32>) -> !fir.box<!fir.ptr<!fir.char<1,?>>>>>) -> !fir.ref<!fir.boxproc<() -> ()>>
340340! CHECK: fir.call @_QPfoo2(%[[VAL_17]]) fastmath<contract> : (!fir.ref<!fir.boxproc<() -> ()>>) -> ()
341- end
341+ end
342342
343343subroutine test_opt_pointer ()
344344 interface
0 commit comments