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.
32 lines
1.6 KiB
Plaintext
32 lines
1.6 KiB
Plaintext
// RUN: fir-opt --add-debug-info --mlir-print-debuginfo %s -o - | FileCheck %s
|
|
|
|
module attributes {dlti.dl_spec = #dlti.dl_spec<>} {
|
|
func.func @foo(%arg0: !fir.ref<!fir.char<1,?>> {fir.bindc_name = "str1"} , %arg1: !fir.ref<i64> {fir.bindc_name = "len1"} loc("/home/haqadeer/work/fortran/t1/../str.f90":1:1), %arg2: i64) {
|
|
%0 = fir.emboxchar %arg0, %arg2 : (!fir.ref<!fir.char<1,?>>, i64) -> !fir.boxchar<1>
|
|
%c4_i32 = arith.constant 4 : i32
|
|
%c6_i32 = arith.constant 6 : i32
|
|
%c0_i64 = arith.constant 0 : i64
|
|
%1 = fir.undefined !fir.dscope
|
|
%2 = fircg.ext_declare %arg1 dummy_scope %1 {uniq_name = "_QFfooElen1"} : (!fir.ref<i64>, !fir.dscope) -> !fir.ref<i64> loc(#loc1)
|
|
%3:2 = fir.unboxchar %0 : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
|
|
%4 = fir.load %2 : !fir.ref<i64>
|
|
%5 = arith.cmpi sgt, %4, %c0_i64 : i64
|
|
%6 = arith.select %5, %4, %c0_i64 : i64
|
|
%7 = fircg.ext_declare %3#0 typeparams %6 dummy_scope %1 {uniq_name = "_QFfooEstr1"} : (!fir.ref<!fir.char<1,?>>, i64, !fir.dscope) -> !fir.ref<!fir.char<1,?>> loc(#loc2)
|
|
return
|
|
} loc(#loc3)
|
|
}
|
|
|
|
|
|
#loc1 = loc("test.f90":18:1)
|
|
#loc2 = loc("test.f90":17:1)
|
|
#loc3 = loc("test.f90":15:1)
|
|
|
|
// CHECK: #[[VAR:.*]] = #llvm.di_local_variable<{{.*}}name = "._QFfooEstr1{{.*}}flags = Artificial>
|
|
// CHECK: func.func @foo
|
|
// CHECK: llvm.intr.dbg.value #[[VAR]]
|
|
// CHECK: return
|
|
// CHECK: #[[STR_TY:.*]] = #llvm.di_string_type<tag = DW_TAG_string_type, name = "", stringLength = #[[VAR]], encoding = DW_ATE_ASCII>
|
|
// CHECK: #llvm.di_local_variable<{{.*}}name = "str1"{{.*}}type = #[[STR_TY]]>
|
|
|