[Bug fortran/86110] New: ICE in gfc_resolve_character_array_constructor, at fortran/array.c:2044

[gscfq@t-online.de]

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

            Bug ID: 86110
           Summary: ICE in gfc_resolve_character_array_constructor, at
                    fortran/array.c:2044
           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: ---

With invalid code down to gfortran 5 :


$ cat z1.f90
program p
   character(:), allocatable :: x, y
   x = 'abc'
   y = [x(:)]
end


$ cat z2.f90
program p
   type t
      character(:), allocatable :: c
   end type
   type(t) :: x, y
   x%c = 'abc'
   y%c = [x%c(:)]
end


$ gfortran-4.9 -c z1.f90
z1.f90:4.3:

   y = [x(:)]
   1
Error: Incompatible ranks 0 and 1 in assignment at (1)


$ gfortran-9-20180610 -c z1.f90
f951: internal compiler error: Segmentation fault
0xb4cecf crash_signal
        ../../gcc/toplev.c:324
0x62fd6a gfc_resolve_character_array_constructor(gfc_expr*)
        ../../gcc/fortran/array.c:2044
0x6c36c6 gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.c:6778
0x6c9c0e gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:11120
0x6cc95a resolve_codes
        ../../gcc/fortran/resolve.c:16564
0x6cca5e gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:16599
0x6b5f3a resolve_all_program_units
        ../../gcc/fortran/parse.c:6060
0x6b5f3a gfc_parse_file()
        ../../gcc/fortran/parse.c:6310
0x6fd22f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204