110 lines · plain
1! RUN: bbc --use-desc-for-alloc=false -emit-fir -hlfir=false %s -o - | FileCheck %s2 3! CHECK-LABEL: len_test4subroutine len_test(i, c)5 integer :: i6 character(*) :: c7 ! CHECK: %[[c:.*]]:2 = fir.unboxchar %arg18 ! CHECK: %[[xx:.*]] = fir.convert %[[c]]#1 : (index) -> i329 ! CHECK: fir.store %[[xx]] to %arg010 i = len(c)11end subroutine12 13! CHECK-LABEL: len_test_array14! CHECK-SAME: %[[arg0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"}, %[[arg1:.*]]: !fir.boxchar<1> {fir.bindc_name = "c"}15subroutine len_test_array(i, c)16 integer :: i17 character(*) :: c(100)18 ! CHECK: %[[c:.*]]:2 = fir.unboxchar %[[arg1]]19 ! CHECK: %[[xx:.*]] = fir.convert %[[c]]#1 : (index) -> i3220 ! CHECK: fir.store %[[xx]] to %[[arg0]]21 i = len(c)22end subroutine23 24! CHECK-LABEL: func @_QPlen_test_assumed_shape_array(25! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"},26! CHECK-SAME: %[[VAL_1:.*]]: !fir.box<!fir.array<?x!fir.char<1,?>>> {fir.bindc_name = "c"}) {27subroutine len_test_assumed_shape_array(i, c)28 integer :: i29 character(*) :: c(:)30! CHECK: %[[VAL_2:.*]] = fir.box_elesize %[[VAL_1]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> index31! CHECK: %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (index) -> i3232! CHECK: fir.store %[[VAL_3]] to %[[VAL_0]] : !fir.ref<i32>33 i = len(c)34end subroutine35 36! CHECK-LABEL: func @_QPlen_test_array_alloc(37! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"},38! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<!fir.box<!fir.heap<!fir.array<?x!fir.char<1,?>>>>> {fir.bindc_name = "c"}) {39subroutine len_test_array_alloc(i, c)40 integer :: i41 character(:), allocatable :: c(:)42! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_1]] : !fir.ref<!fir.box<!fir.heap<!fir.array<?x!fir.char<1,?>>>>>43! CHECK: %[[VAL_3:.*]] = fir.box_elesize %[[VAL_2]] : (!fir.box<!fir.heap<!fir.array<?x!fir.char<1,?>>>>) -> index44! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (index) -> i3245! CHECK: fir.store %[[VAL_4]] to %[[VAL_0]] : !fir.ref<i32>46 i = len(c)47end subroutine48 49! CHECK-LABEL: func @_QPlen_test_array_local_alloc(50! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"})51subroutine len_test_array_local_alloc(i)52 integer :: i53 character(:), allocatable :: c(:)54! CHECK: %[[VAL_5:.*]] = fir.alloca index {uniq_name = "_QFlen_test_array_local_allocEc.len"}55! CHECK: %[[VAL_7:.*]] = arith.constant 10 : i3256! CHECK: %[[VAL_10:.*]] = fir.convert %[[VAL_7]] : (i32) -> index57! CHECK: fir.store %[[VAL_10]] to %[[VAL_5]] : !fir.ref<index>58 allocate(character(10):: c(100))59! CHECK: %[[VAL_13:.*]] = fir.load %[[VAL_5]] : !fir.ref<index>60! CHECK: %[[VAL_14:.*]] = fir.convert %[[VAL_13]] : (index) -> i3261! CHECK: fir.store %[[VAL_14]] to %[[VAL_0]] : !fir.ref<i32>62 i = len(c)63end subroutine64 65! CHECK-LABEL: func @_QPlen_test_alloc_explicit_len(66! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"},67! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i32> {fir.bindc_name = "n"},68! CHECK-SAME: %[[VAL_2:.*]]: !fir.ref<!fir.box<!fir.heap<!fir.array<?x!fir.char<1,?>>>>> {fir.bindc_name = "c"}) {69subroutine len_test_alloc_explicit_len(i, n, c)70 integer :: i71 integer :: n72 character(n), allocatable :: c(:)73! CHECK: %[[VAL_3:.*]] = fir.load %[[VAL_1]] : !fir.ref<i32>74! CHECK: %[[c0_i32:.*]] = arith.constant 0 : i3275! CHECK: %[[cmp:.*]] = arith.cmpi sgt, %[[VAL_3]], %[[c0_i32]] : i3276! CHECK: %[[len:.*]] = arith.select %[[cmp]], %[[VAL_3]], %[[c0_i32]] : i3277! CHECK: fir.store %[[len]] to %[[VAL_0]] : !fir.ref<i32>78 i = len(c)79end subroutine80 81! CHECK-LABEL: func @_QPlen_test_pointer_explicit_len(82! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"},83! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i32> {fir.bindc_name = "n"},84subroutine len_test_pointer_explicit_len(i, n, c)85 integer :: i86 integer :: n87 character(n), pointer :: c(:)88! CHECK: %[[VAL_3:.*]] = fir.load %[[VAL_1]] : !fir.ref<i32>89! CHECK: %[[c0_i32:.*]] = arith.constant 0 : i3290! CHECK: %[[cmp:.*]] = arith.cmpi sgt, %[[VAL_3]], %[[c0_i32]] : i3291! CHECK: %[[len:.*]] = arith.select %[[cmp]], %[[VAL_3]], %[[c0_i32]] : i3292! CHECK: fir.store %[[len]] to %[[VAL_0]] : !fir.ref<i32>93 i = len(c)94end subroutine95 96! CHECK-LABEL: func @_QPlen_test_assumed_shape_explicit_len(97! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"},98! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i32> {fir.bindc_name = "n"},99subroutine len_test_assumed_shape_explicit_len(i, n, c)100 integer :: i101 integer :: n102 character(n) :: c(:)103! CHECK: %[[VAL_3:.*]] = fir.load %[[VAL_1]] : !fir.ref<i32>104! CHECK: %[[c0_i32:.*]] = arith.constant 0 : i32105! CHECK: %[[cmp:.*]] = arith.cmpi sgt, %[[VAL_3]], %[[c0_i32]] : i32106! CHECK: %[[len:.*]] = arith.select %[[cmp]], %[[VAL_3]], %[[c0_i32]] : i32107! CHECK: fir.store %[[len]] to %[[VAL_0]] : !fir.ref<i32>108 i = len(c)109end subroutine110