[Bug fortran/83717] New: Segfault with long character parameter

[tkoenig at gcc dot gnu.org]

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