[Bug fortran/77678] ICE in fold_read_from_constant_string, at fold-const.c:13706

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Slightly modified :


$ cat z2.f90
program p
   character(3) :: c = 'abc'
   character(1) :: z
   integer :: i
   ! i = 2
   z = c(i:i)
   print *, z
end


$ gfortran-7-20160918 -O2 -finit-integer=-1 z2.f90
$ gfortran-7-20160918 -O2 -finit-integer=-8900000 z2.f90
$ gfortran-7-20160918 -O2 -finit-integer=-12345678 z2.f90
z2.f90:6:0:

    z = c(i:i)

internal compiler error: Segmentation fault
0xc21a5f crash_signal
        ../../gcc/toplev.c:336
0x9053b7 expand_expr_real_1(tree_node*, rtx_def*, machine_mode,
expand_modifier, rtx_def**, bool)
        ../../gcc/expr.c:10284
0x9077f8 expand_expr_real_1(tree_node*, rtx_def*, machine_mode,
expand_modifier, rtx_def**, bool)
        ../../gcc/expr.c:9725
0x912cf6 store_expr_with_bounds(tree_node*, rtx_def*, int, bool, bool,
tree_node*)
        ../../gcc/expr.c:5547
0x9147d7 expand_assignment(tree_node*, tree_node*, bool)
        ../../gcc/expr.c:5167
0x802cb6 expand_gimple_stmt_1
        ../../gcc/cfgexpand.c:3649
0x802cb6 expand_gimple_stmt
        ../../gcc/cfgexpand.c:3745
0x8050ce expand_gimple_basic_block
        ../../gcc/cfgexpand.c:5752
0x80b276 execute
        ../../gcc/cfgexpand.c:6363