mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 16:16:39 +00:00
f35f863a88
Patch 2/3 of the transition step 1 described in https://discourse.llvm.org/t/rfc-enabling-the-hlfir-lowering-by-default/72778/7. All the modified tests are still here since coverage for the direct lowering to FIR was still needed while it was default. Some already have an HLFIR version, some have not and will need to be ported in step 2 described in the RFC. Note that another 147 lit tests use -emit-fir/-emit-llvm outputs but do not need a flag since the HLFIR/no HLFIR output is the same for what is being tested.
31 lines
1.4 KiB
Fortran
31 lines
1.4 KiB
Fortran
! RUN: bbc -hlfir=false %s -o - | tco | FileCheck %s
|
|
|
|
character(LEN=128, KIND=4), PARAMETER :: conarr(3) = &
|
|
[ character(128,4) :: "now is the time", "for all good men to come", &
|
|
"to the aid of the country" ]
|
|
character(LEN=10, KIND=4) :: arr(3) = &
|
|
[ character(10,4) :: "good buddy", "best buddy", " " ]
|
|
call action_on_char4(conarr)
|
|
call action_on_char4(arr)
|
|
end program
|
|
|
|
subroutine sub1
|
|
integer, parameter :: k = 4
|
|
character(63,k), parameter :: wiggle = k_"wiggle"
|
|
call sub2(wiggle)
|
|
end subroutine sub1
|
|
|
|
! CHECK-LABEL: @_QFEarr = internal global [3 x [10 x i32]] [
|
|
! CHECK-SAME: [10 x i32] [i32 103, i32 111, i32 111, i32 100, i32 32, i32 98, i32 117, i32 100, i32 100, i32 121],
|
|
! CHECK-SAME: [10 x i32] [i32 98, i32 101, i32 115, i32 116, i32 32, i32 98, i32 117, i32 100, i32 100, i32 121],
|
|
! CHECK-SAME: [10 x i32] [i32 32, i32 32, i32 32, i32 32, i32 32, i32 32, i32 32, i32 32, i32 32, i32 32]]
|
|
! CHECK-LABEL: @_QFsub1ECwiggle = internal constant [63 x i32] [i32 119,
|
|
! CHECK-SAME: i32 105, i32 103, i32 103, i32 108, i32 101, i32 32, i32 32,
|
|
! CHECK: @_QQcl[[inline:.*]] = linkonce constant [63 x i32] [i32 119, i32 105, i32 103, i32 103, i32 108, i32 101, i32 32,
|
|
|
|
! CHECK-LABEL: define void @_QQmain()
|
|
! CHECK: call void @_QPaction_on_char4(ptr @_QFEarr, i64 10)
|
|
|
|
! CHECK-LABEL: define void @_QPsub1(
|
|
! CHECK: call void @_QPsub2(ptr @_QQcl[[inline]], i64 63)
|