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: gs...@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
