[Bug fortran/98284] New: ICE in get_array_index

[asolokha at gmx dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=98284

            Bug ID: 98284
           Summary: ICE in get_array_index
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Keywords: ice-on-invalid-code
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: asolokha at gmx dot com
  Target Milestone: ---

gfortran-11.0.0-alpha20201213 snapshot
(g:2c3d487a9a8af00c0c462cd4e1a112804b9cc156) ICEs when compiling the following
testcase, reduced from f18/testsuite/Semantics/data04.f90 from the flang 11.0.0
test suite:

module at
contains
  subroutine r8(zd)
    type uk
       integer, allocatable :: h5(:)
    end type uk
    type(uk) :: n0
    integer :: zd

    DATA(n0 % h5(zd), zd = 1, 10) / 10 * 1/
  end subroutine r8
end module at

% powerpc-e300c3-linux-gnu-gfortran-11.0.0 -c uj2rgix5.f90
f951: internal compiler error: Segmentation fault
0xe7df86 crash_signal
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/toplev.c:327
0x7e5977 get_array_index
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/data.c:69
0x7e5977 gfc_assign_data_value(gfc_expr*, gfc_expr*, __mpz_struct*,
__mpz_struct (*) [1])
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/data.c:285
0x885f44 check_data_variable
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:16276
0x88641c traverse_data_var
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:16413
0x88641c traverse_data_list
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:16369
0x88ce76 traverse_data_var
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:16411
0x88ce76 resolve_data
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:16468
0x88ce76 resolve_types
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:17295
0x88cd6b resolve_types
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:17281
0x87d57e gfc_resolve(gfc_namespace*)
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:17385
0x87d57e gfc_resolve(gfc_namespace*)
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/resolve.c:17366
0x86ebd1 gfc_parse_file()
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/parse.c:6492
0x8c474e gfc_be_parse_file
       
/var/tmp/portage/cross-powerpc-e300c3-linux-gnu/gcc-11.0.0_alpha20201213/work/gcc-11-20201213/gcc/fortran/f95-lang.c:212

(While my target here is powerpc, the ICE is not target-specific.)