34 lines · plain
1! Test storage_size with characters2! RUN: bbc -emit-hlfir %s -o - | FileCheck %s3 4! CHECK-LABEL: func.func @_QPtest_storage_size5subroutine test_storage_size(n)6 interface7 function return_char(l)8 integer :: l9 character(l) :: return_char10 end function11 end interface12 integer n13 print*, storage_size(return_char(n))14! CHECK: %[[val_16:.*]] = fir.call @_QPreturn_char(%[[res_addr:[^,]*]], %[[res_len:[^,]*]], {{.*}})15! CHECK: %[[res:.*]]:2 = hlfir.declare %[[res_addr]] typeparams %[[res_len]]16! CHECK: %[[false:.*]] = arith.constant false17! CHECK: %[[expr:.*]] = hlfir.as_expr %[[res]]#0 move %[[false]] : (!fir.boxchar<1>, i1) -> !hlfir.expr<!fir.char<1,?>>18! CHECK: %[[assoc:.*]]:3 = hlfir.associate %[[expr]] typeparams %[[res_len]] {adapt.valuebyref} : (!hlfir.expr<!fir.char<1,?>>, index) -> (!fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1)19! CHECK: %[[val_18:.*]] = fir.embox %[[assoc]]#1 typeparams %[[res_len]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.box<!fir.char<1,?>>20! CHECK: %[[val_19:.*]] = fir.box_elesize %[[val_18]] : (!fir.box<!fir.char<1,?>>) -> i3221! CHECK: %[[val_20:.*]] = arith.constant 8 : i3222! CHECK: %[[val_21:.*]] = arith.muli %[[val_19]], %[[val_20]] : i3223! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %[[val_21]])24end subroutine25 26function return_char(l)27 integer :: l28 character(l) :: return_char29end function30 31 call test_storage_size(42)32 print *, 42*833end34