b64cf381a7
This PR generates dwarf to extract the information about the arrays from
descriptor. The DWARF needs the offset of the fields like `lower_bound`
and `extent`. The getComponentOffset has been added to calculate
them which pushes the issue of host and target data size into
getDescFieldTypeModel.
As we use data layout now, some tests needed to be adjusted to have a
dummy data layout to avoid failure.
With this change in place, GDB is able show the assumed shape arrays
correctly.
subroutine ff(n, m, arr)
integer n, m
integer :: arr(:, :)
print *, arr
do i = 1, n
do j = 1, m
arr(j, i) = (i * 5) + j + 10
end do
end do
print *, arr
end subroutine ff
Breakpoint 1, ff (n=4, m=3, arr=...) at test1.f90:13
13 print *, arr
(gdb) p arr
$1 = ((6, 7, 8, 9) (11, 12, 13, 14) (16, 17, 18, 19))
(gdb) ptype arr
type = integer (4,3)
(gdb) c
Continuing.
6 7 8 9 11 12 13 14 16 17 18 19
41 lines
2.0 KiB
Plaintext
41 lines
2.0 KiB
Plaintext
// RUN: fir-opt --add-debug-info --mlir-print-debuginfo %s | FileCheck %s
|
|
|
|
|
|
module attributes {dlti.dl_spec = #dlti.dl_spec<>} {
|
|
fir.global @_QMhelperEgli : i32 {
|
|
%0 = fir.zero_bits i32
|
|
fir.has_value %0 : i32
|
|
} loc(#loc1)
|
|
fir.global @_QMhelperEglr : f32 {
|
|
%0 = fir.zero_bits f32
|
|
fir.has_value %0 : f32
|
|
} loc(#loc2)
|
|
func.func @_QMhelperPtest() {
|
|
%c67_i32 = arith.constant 67 : i32
|
|
%cst = arith.constant 1.234000e+01 : f32
|
|
%0 = fir.address_of(@_QMhelperEgli) : !fir.ref<i32>
|
|
%1 = fir.address_of(@_QMhelperEglr) : !fir.ref<f32>
|
|
fir.store %cst to %1 : !fir.ref<f32>
|
|
fir.store %c67_i32 to %0 : !fir.ref<i32>
|
|
return
|
|
} loc(#loc3)
|
|
}
|
|
#loc1 = loc("test.f90":12:11)
|
|
#loc2 = loc("test.f90":15:8)
|
|
#loc3 = loc("test.f90":20:5)
|
|
|
|
// CHECK-DAG: #[[I4:.*]] = #llvm.di_basic_type<tag = DW_TAG_base_type, name = "integer", sizeInBits = 32, encoding = DW_ATE_signed>
|
|
// CHECK-DAG: #[[R4:.*]] = #llvm.di_basic_type<tag = DW_TAG_base_type, name = "real", sizeInBits = 32, encoding = DW_ATE_float>
|
|
// CHECK-DAG: #[[CU:.*]] = #llvm.di_compile_unit<{{.*}}>
|
|
// CHECK-DAG: #[[MOD:.*]] = #llvm.di_module<{{.*}}scope = #[[CU]], name = "helper"{{.*}}>
|
|
// CHECK-DAG: #[[LOC1:.*]] = loc("{{.*}}test.f90":12{{.*}})
|
|
// CHECK-DAG: #[[GLI:.*]] = #llvm.di_global_variable<scope = #[[MOD]], name = "gli", linkageName = "_QMhelperEgli"{{.*}}line = 12, type = #[[I4]], isDefined = true>
|
|
// CHECK-DAG: #[[LOC2:.*]] = loc("{{.*}}test.f90":15{{.*}})
|
|
// CHECK-DAG: #[[GLR:.*]] = #llvm.di_global_variable<scope = #[[MOD]], name = "glr", linkageName = "_QMhelperEglr"{{.*}}line = 15, type = #[[R4]], isDefined = true>
|
|
// CHECK-DAG: #[[LOC3:.*]] = loc("{{.*}}test.f90":20{{.*}})
|
|
// CHECK-DAG: #[[TEST:.*]] = #llvm.di_subprogram<{{.*}}compileUnit = #[[CU]], scope = #[[MOD]], name = "test", linkageName = "_QMhelperPtest"{{.*}}line = 20, scopeLine = 20{{.*}}>
|
|
// CHECK-DAG: loc(fused<#[[GLI]]>[#[[LOC1]]])
|
|
// CHECK-DAG: loc(fused<#[[GLR]]>[#[[LOC2]]])
|
|
// CHECK-DAG: loc(fused<#[[TEST]]>[#[[LOC3]]])
|
|
|