[Bug fortran/93714] New: [8/9/10 Regression] ICE in gfc_check_same_strlen, at fortran/check.c:1253

[gscfq@t-online.de]

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

            Bug ID: 93714
           Summary: [8/9/10 Regression] ICE in gfc_check_same_strlen, at
                    fortran/check.c:1253
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Affects versions down to r6 :


$ cat z1.f90
program p
   character((1.)) :: a
   character, pointer :: b => a
end


$ cat z2.f90
program p
   character((9.)), target :: a
   character(:), pointer :: b => a
end


$ gfortran-5 -c z1.f90   
z1.f90:3:31:

    character, pointer :: b => a
                               1
Error: Pointer assignment target is neither TARGET nor POINTER at (1)
z1.f90:2:13:

    character((1.)) :: a
             1
Error: Expression at (1) must be of INTEGER type, found REAL


$ gfortran-10-20200209 -c z1.f90
f951: internal compiler error: Segmentation fault
0xbae4bf crash_signal
        ../../gcc/toplev.c:328
0x6201b2 gfc_check_same_strlen(gfc_expr const*, gfc_expr const*, char const*)
        ../../gcc/fortran/check.c:1253
0x655440 gfc_check_pointer_assign(gfc_expr*, gfc_expr*, bool, bool)
        ../../gcc/fortran/expr.c:4227
0x655a4d gfc_check_assign_symbol(gfc_symbol*, gfc_component*, gfc_expr*)
        ../../gcc/fortran/expr.c:4418
0x63506e add_init_expr_to_sym
        ../../gcc/fortran/decl.c:1901
0x63eec0 variable_decl
        ../../gcc/fortran/decl.c:2939
0x63eec0 gfc_match_data_decl()
        ../../gcc/fortran/decl.c:6120
0x6a20f3 match_word
        ../../gcc/fortran/parse.c:65
0x6a20f3 decode_statement
        ../../gcc/fortran/parse.c:376
0x6a3b3a next_free
        ../../gcc/fortran/parse.c:1279
0x6a3b3a next_statement
        ../../gcc/fortran/parse.c:1511
0x6a518b parse_spec
        ../../gcc/fortran/parse.c:3922
0x6a7f5c parse_progunit
        ../../gcc/fortran/parse.c:5851
0x6a9639 gfc_parse_file()
        ../../gcc/fortran/parse.c:6392
0x6f42bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:210