https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83717
Bug ID: 83717
Summary: Segfault with long character parameter
Product: gcc
Version: unknown
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: tkoenig at gcc dot gnu.org
Target Milestone: ---
On powerpc64-unknown-linux-gnu:
program main
integer(8), parameter :: n=2_8**32+1
character(len=*), parameter :: a1 = repeat('x',n)
write (10) a1
end program main
(gdb) r param.f90
Starting program: /home/tkoenig/trunk-bin/gcc/f951 param.f90
Program received signal SIGSEGV, Segmentation fault.
0x0000000010194c34 in add_init_expr_to_sym (name=name@entry=0x3fffffffe330
"a1", initp=initp@entry=0x3fffffffe3e8,
var_locus=var_locus@entry=0x3fffffffe3b0) at
../../trunk/gcc/fortran/decl.c:1747
1747 sym->ts.u.cl->length =
Missing separate debuginfos, use: debuginfo-install
glibc-2.17-196.el7_4.2.ppc64 gmp-6.0.0-15.el7.ppc64 libmpc-1.0.1-3.el7.ppc64
mpfr-3.1.1-4.el7.ppc64
(gdb) bt
#0 0x0000000010194c34 in add_init_expr_to_sym (name=name@entry=0x3fffffffe330
"a1", initp=initp@entry=0x3fffffffe3e8,
var_locus=var_locus@entry=0x3fffffffe3b0) at
../../trunk/gcc/fortran/decl.c:1747
#1 0x00000000101a0be8 in variable_decl (elem=1) at
../../trunk/gcc/fortran/decl.c:2589
#2 gfc_match_data_decl () at ../../trunk/gcc/fortran/decl.c:5692
#3 0x000000001021c2a4 in match_word (str=str@entry=0x0, subr=<optimized out>,
old_locus=<optimized out>) at ../../trunk/gcc/fortran/parse.c:65
#4 0x000000001021d158 in decode_statement () at
../../trunk/gcc/fortran/parse.c:376
#5 0x0000000010221e08 in next_free () at ../../trunk/gcc/fortran/parse.c:1226
