1fb0707da6
Use hlfir::loadTrivialScalars to dereference pointer, allocatables, and load numerical and logical scalars. This has a small fallout on tests: - load is done on the HLFIR entity (#0 of hlfir.declare) and not the FIR one (#1). This makes no difference at the FIR level (#1 and #0 only differs to account for assumed and explicit shape lower bounds). - loadTrivialScalars get rids of allocatable fir.box for monomoprhic scalars (it is not needed). This exposed a bug in lowering of MERGE with a polymorphic and a monomorphic argument: when the monomorphic is not a fir.box, the polymorphic fir.class should not be reboxed but its address should be read. Reviewed By: tblah Differential Revision: https://reviews.llvm.org/D153252
19 lines
771 B
Fortran
19 lines
771 B
Fortran
! Test lowering of of expressions as values
|
|
! RUN: bbc -emit-hlfir -o - %s 2>&1 | FileCheck %s
|
|
|
|
! CHECK-LABEL: func.func @_QPfoo()
|
|
subroutine foo()
|
|
print *, 42
|
|
! CHECK: %[[c42:.*]] = arith.constant 42 : i32
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %[[c42]]) {{.*}}: (!fir.ref<i8>, i32) -> i1
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QPfoo_designator(
|
|
! CHECK-SAME: %[[arg0:.*]]: !fir.ref<i32>
|
|
subroutine foo_designator(n)
|
|
!CHECK: %[[n:.*]]:2 = hlfir.declare %[[arg0]] {uniq_name = "_QFfoo_designatorEn"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)
|
|
print *, n
|
|
! CHECK: %[[nval:.*]] = fir.load %[[n]]#0 : !fir.ref<i32>
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %[[nval]]) {{.*}}: (!fir.ref<i8>, i32) -> i1
|
|
end subroutine
|