[Bug debug/77589] New: fortran: Missing DW_AT_byte_stride for an array record array selection

[jan.kratochvil at redhat dot com]

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)