[Patch, fortran] PR93581 - [9/10 Regression] ICE in gfc_get_dataptr_offset, at fortran/trans-array.c:6951

[Paul Richard Thomas]

This is a straightforward patch, especially for the bug in the PR! The
additional fix ensures that expr%LEN always returns a scalar. Please
note the comment in resolve.c about bounds checking.

Regtests on trunk - OK for 9- and 10-branches?

Paul

2020-03-01  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/93581
    * resolve.c (gfc_resolve_ref): Modify array refs to be elements
    if the ref chain ends in INQUIRY_LEN.
    * trans-array.c (gfc_get_dataptr_offset): Provide the offsets
    for INQUIRY_RE and INQUIRY_IM.

2020-03-01  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/93581
    * gfortran.dg/inquiry_type_ref_6.f90 : New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: submit.diff
Type: text/x-patch
Size: 4352 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20200301/8a836c45/attachment.bin>