https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77589
Bug ID: 77589
Summary: fortran: Missing DW_AT_byte_stride for an array record
array selection
Product: gcc
Version: 6.2.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: debug
Assignee: unassigned at gcc dot gnu.org
Reporter: jan.kratochvil at redhat dot com
Target Milestone: ---
Fedora testcase: gdb.fortran/dwarf-stride.exp
! File written by Alan Matsuoka.
FAIL: gcc-6.2.1-1.fc26.x86_64
PASS: gcc-4.8.5-4.el7.x86_64
gfortran -o dwarf-stridex dwarf-stridex.f90 -Wall -g;../gdb ./dwarf-stridex
-batch -ex 'b 14' -ex r -ex 'p c40pt(2)'
p c40pt(2)^M
$2 = '\001\000\000\000\061-hello', ' ' <repeats 29 times>^M
(gdb) FAIL: gdb.fortran/dwarf-stride.exp: p c40pt(2)
p c40pt(2)^M
$2 = '1-hello', ' ' <repeats 33 times>^M
(gdb) PASS: gdb.fortran/dwarf-stride.exp: p c40pt(2)
FAIL:
<2><174>: Abbrev Number: 18 (DW_TAG_subrange_type)
<175> DW_AT_lower_bound : (DW_OP_push_object_address; DW_OP_plus_uconst:
32; DW_OP_deref)
<17a> DW_AT_upper_bound : (DW_OP_push_object_address; DW_OP_plus_uconst:
40; DW_OP_deref)
PASS:
<2><127>: Abbrev Number: 14 (DW_TAG_subrange_type)
<128> DW_AT_lower_bound : (DW_OP_push_object_address; DW_OP_plus_uconst:
32; DW_OP_deref)
<12d> DW_AT_upper_bound : (DW_OP_push_object_address; DW_OP_plus_uconst:
40; DW_OP_deref)
<132> DW_AT_byte_stride : (DW_OP_push_object_address; DW_OP_plus_uconst:
24; DW_OP_deref; DW_OP_fbreg: -80; DW_OP_deref; DW_OP_mul)
