https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66347
--- Comment #4 from kargl at gcc dot gnu.org ---
Reduced testcase.
block data
integer n
parameter (n=1)
character*2 s1(n)
character*8 s2(n)
data (s1(i),s2(i),i=1,n)/"ab","12345678"/
end
% gfc6 -c -fno-automatic -finit-local-zero block.f
f951: internal compiler error: Segmentation fault
0xb4971f crash_signal
../../gcc6/gcc/toplev.c:380
0x62abf3 apply_default_init_local
../../gcc6/gcc/fortran/resolve.c:10952
0x62abf3 resolve_fl_variable
../../gcc6/gcc/fortran/resolve.c:11214
0x62abf3 resolve_symbol
../../gcc6/gcc/fortran/resolve.c:13757
0x64155b do_traverse_symtree
../../gcc6/gcc/fortran/symbol.c:3646
0x62c002 resolve_types
../../gcc6/gcc/fortran/resolve.c:14978
0x627cc0 gfc_resolve(gfc_namespace*)
../../gcc6/gcc/fortran/resolve.c:15082
0x613889 gfc_parse_file()
../../gcc6/gcc/fortran/parse.c:5475
0x6536a5 gfc_be_parse_file
../../gcc6/gcc/fortran/f95-lang.c:225
