fc4b1a303b
The debug information generated by flang did not handle the cases where
dimension or lower bounds of the arrays were variable. This PR fixes
this issue. It will help distinguish assumed size arrays from cases
where array size are variable. It also handles the variable lower bounds
for assumed shape arrays.
Fixes #98879.
24 lines
1.3 KiB
Plaintext
24 lines
1.3 KiB
Plaintext
// RUN: fir-opt --add-debug-info --mlir-print-debuginfo %s | FileCheck %s
|
|
|
|
// Test assumed shape array with variable lower bound.
|
|
|
|
module attributes {dlti.dl_spec = #dlti.dl_spec<>} {
|
|
func.func private @_QFPfn(%arg0: !fir.box<!fir.array<?xi32>> {fir.bindc_name = "b"}, %arg1: !fir.ref<i32> {fir.bindc_name = "n"}) attributes {} {
|
|
%c23_i32 = arith.constant 23 : i32
|
|
%c6_i32 = arith.constant 6 : i32
|
|
%c20_i32 = arith.constant 20 : i32
|
|
%0 = fir.undefined !fir.dscope
|
|
%1 = fircg.ext_declare %arg1 dummy_scope %0 {uniq_name = "_QFFfnEn"} : (!fir.ref<i32>, !fir.dscope) -> !fir.ref<i32> loc(#loc1)
|
|
%2 = fir.load %1 : !fir.ref<i32>
|
|
%3 = fir.convert %2 : (i32) -> index
|
|
%4 = fircg.ext_declare %arg0 origin %3 dummy_scope %0 {uniq_name = "_QFFfnEb"} : (!fir.box<!fir.array<?xi32>>, index, !fir.dscope) -> !fir.box<!fir.array<?xi32>> loc(#loc2)
|
|
return
|
|
} loc(#loc3)
|
|
}
|
|
#loc1 = loc("test1.f90":1:1)
|
|
#loc2 = loc("test1.f90":3:16)
|
|
#loc3 = loc("test1.f90":4:16)
|
|
|
|
// CHECK: #[[VAR:.*]] = #llvm.di_local_variable<{{.*}}name = "._QFFfnEb1"{{.*}}flags = Artificial>
|
|
// CHECK: #llvm.di_composite_type<tag = DW_TAG_array_type{{.*}}elements = #llvm.di_subrange<count = #llvm.di_expression<[{{.*}}]>, lowerBound = #[[VAR]], stride = #llvm.di_expression<[{{.*}}]>>, dataLocation = <[DW_OP_push_object_address, DW_OP_deref]>>
|