[Bug fortran/85798] New: ICE in get_array_index, at fortran/data.c:69

[gscfq@t-online.de]

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

            Bug ID: 85798
           Summary: ICE in get_array_index, at fortran/data.c:69
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

While wrapped in a type, hits versions down to at least 4.8 :


$ cat z1.f90
program p
   type t
      integer, allocatable :: a(:)
   end type
   type(t) :: z
   data z%a(1) / 789 /
end


$ gfortran-9-20180513 -c z1.f90
f951: internal compiler error: Segmentation fault
0xb9f4bf crash_signal
        ../../gcc/toplev.c:325
0x68e8da get_array_index
        ../../gcc/fortran/data.c:69
0x68e8da gfc_assign_data_value(gfc_expr*, gfc_expr*, __mpz_struct*,
__mpz_struct (*) [1])
        ../../gcc/fortran/data.c:282
0x711ee9 check_data_variable
        ../../gcc/fortran/resolve.c:15479
0x712232 traverse_data_var
        ../../gcc/fortran/resolve.c:15608
0x71cd01 resolve_data
        ../../gcc/fortran/resolve.c:15663
0x71cd01 resolve_types
        ../../gcc/fortran/resolve.c:16481
0x71839c gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:16570
0x701b6a resolve_all_program_units
        ../../gcc/fortran/parse.c:6060
0x701b6a gfc_parse_file()
        ../../gcc/fortran/parse.c:6310
0x748adf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204