1710c8cf0f
The lowering produces fir.dummy_scope operation if the current function has dummy arguments. Each hlfir.declare generated for a dummy argument is then using the result of fir.dummy_scope as its dummy_scope operand. This is only done for HLFIR. I was not able to find a reliable way to identify dummy symbols in `genDeclareSymbol`, so I added a set of registered dummy symbols that is alive during the variables instantiation for the current function. The set is initialized during the mapping of the dummy argument symbols to their MLIR values. It is reset right after all variables are instantiated - this is done to avoid generating hlfir.declare operations with dummy_scope for the clones of the dummy symbols (e.g. this happens with OpenMP privatization). If this can be done in a cleaner way, please advise.
112 lines
6.5 KiB
Fortran
112 lines
6.5 KiB
Fortran
! Test lowering of variables to fir.declare
|
|
! RUN: bbc -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
subroutine scalar_numeric(x)
|
|
integer :: x
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_numeric(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32>
|
|
! CHECK: %[[VAL_1:.*]] = hlfir.declare %[[VAL_0]] dummy_scope %{{[0-9]+}} {uniq_name = "_QFscalar_numericEx"} : (!fir.ref<i32>, !fir.dscope) -> (!fir.ref<i32>, !fir.ref<i32>)
|
|
|
|
subroutine scalar_character(c)
|
|
character(*) :: c
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_character(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.boxchar<1>
|
|
! CHECK: %[[VAL_1:.*]]:2 = fir.unboxchar %[[VAL_0]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
|
|
! CHECK: %[[VAL_2:.*]] = hlfir.declare %[[VAL_1]]#0 typeparams %[[VAL_1]]#1 dummy_scope %{{[0-9]+}} {uniq_name = "_QFscalar_characterEc"} : (!fir.ref<!fir.char<1,?>>, index, !fir.dscope) -> (!fir.boxchar<1>, !fir.ref<!fir.char<1,?>>)
|
|
|
|
subroutine scalar_character_cst_len(c)
|
|
character(10) :: c
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_character_cst_len(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.boxchar<1>
|
|
! CHECK: %[[VAL_1:.*]]:2 = fir.unboxchar %[[VAL_0]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
|
|
! CHECK: %[[VAL_3:.*]] = fir.convert %[[VAL_1]]#0 : (!fir.ref<!fir.char<1,?>>) -> !fir.ref<!fir.char<1,10>>
|
|
! CHECK: %[[VAL_2:.*]] = arith.constant 10 : index
|
|
! CHECK: %[[VAL_4:.*]] = hlfir.declare %[[VAL_3]] typeparams %[[VAL_2]] dummy_scope %{{[0-9]+}} {uniq_name = "_QFscalar_character_cst_lenEc"} : (!fir.ref<!fir.char<1,10>>, index, !fir.dscope) -> (!fir.ref<!fir.char<1,10>>, !fir.ref<!fir.char<1,10>>)
|
|
|
|
subroutine array_numeric(x)
|
|
integer :: x(10, 20)
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QParray_numeric(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.array<10x20xi32>>
|
|
! CHECK: %[[VAL_1:.*]] = arith.constant 10 : index
|
|
! CHECK: %[[VAL_2:.*]] = arith.constant 20 : index
|
|
! CHECK: %[[VAL_3:.*]] = fir.shape %[[VAL_1]], %[[VAL_2]] : (index, index) -> !fir.shape<2>
|
|
! CHECK: %[[VAL_4:.*]] = hlfir.declare %[[VAL_0]](%[[VAL_3]]) dummy_scope %{{[0-9]+}} {uniq_name = "_QFarray_numericEx"} : (!fir.ref<!fir.array<10x20xi32>>, !fir.shape<2>, !fir.dscope) -> (!fir.ref<!fir.array<10x20xi32>>, !fir.ref<!fir.array<10x20xi32>>)
|
|
|
|
|
|
subroutine array_numeric_lbounds(x)
|
|
integer :: x(-1:10, -2:20)
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QParray_numeric_lbounds(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.array<12x23xi32>>
|
|
! CHECK: %[[VAL_1:.*]] = arith.constant -1 : index
|
|
! CHECK: %[[VAL_2:.*]] = arith.constant 12 : index
|
|
! CHECK: %[[VAL_3:.*]] = arith.constant -2 : index
|
|
! CHECK: %[[VAL_4:.*]] = arith.constant 23 : index
|
|
! CHECK: %[[VAL_5:.*]] = fir.shape_shift %[[VAL_1]], %[[VAL_2]], %[[VAL_3]], %[[VAL_4]] : (index, index, index, index) -> !fir.shapeshift<2>
|
|
! CHECK: %[[VAL_6:.*]] = hlfir.declare %[[VAL_0]](%[[VAL_5]]) dummy_scope %{{[0-9]+}} {uniq_name = "_QFarray_numeric_lboundsEx"} : (!fir.ref<!fir.array<12x23xi32>>, !fir.shapeshift<2>, !fir.dscope) -> (!fir.box<!fir.array<12x23xi32>>, !fir.ref<!fir.array<12x23xi32>>)
|
|
|
|
subroutine array_character(c)
|
|
character(*) :: c(50)
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QParray_character(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.boxchar<1>
|
|
! CHECK: %[[VAL_1:.*]]:2 = fir.unboxchar %[[VAL_0]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
|
|
! CHECK: %[[VAL_2:.*]] = fir.convert %[[VAL_1]]#0 : (!fir.ref<!fir.char<1,?>>) -> !fir.ref<!fir.array<50x!fir.char<1,?>>>
|
|
! CHECK: %[[VAL_3:.*]] = arith.constant 50 : index
|
|
! CHECK: %[[VAL_4:.*]] = fir.shape %[[VAL_3]] : (index) -> !fir.shape<1>
|
|
! CHECK: %[[VAL_5:.*]] = hlfir.declare %[[VAL_2]](%[[VAL_4]]) typeparams %[[VAL_1]]#1 dummy_scope %{{[0-9]+}} {uniq_name = "_QFarray_characterEc"} : (!fir.ref<!fir.array<50x!fir.char<1,?>>>, !fir.shape<1>, index, !fir.dscope) -> (!fir.box<!fir.array<50x!fir.char<1,?>>>, !fir.ref<!fir.array<50x!fir.char<1,?>>>)
|
|
|
|
subroutine scalar_numeric_attributes(x)
|
|
integer, optional, target, intent(in) :: x
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_numeric_attributes(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32>
|
|
! CHECK: %[[VAL_1:.*]] = hlfir.declare %[[VAL_0]] dummy_scope %{{[0-9]+}} {fortran_attrs = #fir.var_attrs<intent_in, optional, target>, uniq_name = "_QFscalar_numeric_attributesEx"} : (!fir.ref<i32>, !fir.dscope) -> (!fir.ref<i32>, !fir.ref<i32>)
|
|
|
|
subroutine scalar_numeric_attributes_2(x)
|
|
real(16), value :: x(100)
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_numeric_attributes_2(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.array<100xf128>>
|
|
! CHECK: %[[VAL_1:.*]] = arith.constant 100 : index
|
|
! CHECK: %[[VAL_2:.*]] = fir.shape %[[VAL_1]] : (index) -> !fir.shape<1>
|
|
! CHECK: %[[VAL_3:.*]] = hlfir.declare %[[VAL_0]](%[[VAL_2]]) dummy_scope %{{[0-9]+}} {fortran_attrs = #fir.var_attrs<value>, uniq_name = "_QFscalar_numeric_attributes_2Ex"} : (!fir.ref<!fir.array<100xf128>>, !fir.shape<1>, !fir.dscope) -> (!fir.ref<!fir.array<100xf128>>, !fir.ref<!fir.array<100xf128>>)
|
|
|
|
subroutine scalar_numeric_attributes_3(x)
|
|
real, intent(in) :: x
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_numeric_attributes_3(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<f32>
|
|
! CHECK: %[[VAL_1:.*]] = hlfir.declare %[[VAL_0]] dummy_scope %{{[0-9]+}} {fortran_attrs = #fir.var_attrs<intent_in>, uniq_name = "_QFscalar_numeric_attributes_3Ex"} : (!fir.ref<f32>, !fir.dscope) -> (!fir.ref<f32>, !fir.ref<f32>)
|
|
|
|
subroutine scalar_numeric_attributes_4(x)
|
|
logical(8), intent(out) :: x
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_numeric_attributes_4(
|
|
! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_1:.*]] = hlfir.declare %[[VAL_0]] dummy_scope %{{[0-9]+}} {fortran_attrs = #fir.var_attrs<intent_out>, uniq_name = "_QFscalar_numeric_attributes_4Ex"} : (!fir.ref<!fir.logical<8>>, !fir.dscope) -> (!fir.ref<!fir.logical<8>>, !fir.ref<!fir.logical<8>>)
|
|
|
|
subroutine scalar_numeric_parameter()
|
|
integer, parameter :: p = 42
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPscalar_numeric_parameter() {
|
|
! CHECK: %[[VAL_0:.*]] = fir.address_of(@_QFscalar_numeric_parameterECp) : !fir.ref<i32>
|
|
! CHECK: %[[VAL_1:.*]] = hlfir.declare %[[VAL_0]] {fortran_attrs = #fir.var_attrs<parameter>, uniq_name = "_QFscalar_numeric_parameterECp"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)
|
|
|
|
subroutine test_component_in_spec_expr(x, derived)
|
|
type t
|
|
integer :: component
|
|
end type
|
|
type(t) :: derived
|
|
! Test that we do not try to instantiate "component" just because
|
|
! its symbol appears in a specification expression.
|
|
real :: x(derived%component)
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPtest_component_in_spec_expr(
|
|
! CHECK-NOT: alloca
|
|
! CHECK: return
|