https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125763
Bug ID: 125763
Summary: ICE in gfc_get_symbol_decl, at fortran/trans-decl.cc
Product: gcc
Version: 17.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: jvdelisle at gcc dot gnu.org
Target Milestone: ---
$ cat z4.f90
program p
character(kind=1,len=3), target :: s1 = 'abc'
character(kind=1,len=:), pointer :: ps1 => s1(2:3)
print *, len (ps1), ps1
end
$ gfc z4.f90
z4.f90:1:11:
1 | program p
| 1
internal compiler error: in gfc_get_symbol_decl, at fortran/trans-decl.cc:2062
0x24e902f internal_error(char const*, ...)
../../trunk/gcc/diagnostic-global-context.cc:787
0x69cec7 fancy_abort(char const*, int, char const*)
../../trunk/gcc/diagnostics/context.cc:1813
0x41219c gfc_get_symbol_decl(gfc_symbol*)
../../trunk/gcc/fortran/trans-decl.cc:2062
0x828077 generate_local_decl
../../trunk/gcc/fortran/trans-decl.cc:6506
