[Bug fortran/36319] New: Segfault with wide characters in DATA

["jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

The following code draws a compile time segfault.  This is derived from
data_array_1.f90 that I have modified while working on wide character I/O.

program chkdata
    integer, parameter,dimension(4) :: myint = [ 4,3,2,1 ]
    character(len=3, kind=4), parameter, dimension(3) :: mychar = [ "abc",
"def", "ghi" ]
    character(50) :: buffer
    integer :: a(5)
    character(5) :: c(5)
    data a(1:2) / myint(4), myint(2) /
    data a(3:5) / myint(1), myint(3), myint(1) /
    data c / mychar(1), mychar(2), mychar(3), mychar(1), mychar(2) /
    buffer = ""
    if (any(a.ne.[1,3,4,2,4])) call abort
    write(buffer,'(5(a))')c
    if (buffer.ne."abc  def  ghi  abc  def  ") call abort
end program chkdata

Starting program: /home/jerry/bin/f951 test2.f90

Program received signal SIGSEGV, Segmentation fault.
0x0000003ff067b40b in memcpy () from /lib64/libc.so.6
Missing separate debuginfos, use: debuginfo-install gmp.x86_64 mpfr.x86_64
(gdb) bt
#0  0x0000003ff067b40b in memcpy () from /lib64/libc.so.6
#1  0x000000000046875e in gfc_convert_char_constant (e=0x106d6d0, 
    type=<value optimized out>, kind=4)
    at ../../gcc44/gcc/fortran/simplify.c:4832
#2  0x000000000042a901 in do_simplify (specific=0x1068ba0, e=0x106d9a0)
    at ../../gcc44/gcc/fortran/intrinsic.c:3286
#3  0x000000000042ac11 in gfc_convert_chartype (expr=0x106d9a0, 
    ts=0x7ffffad42a58) at ../../gcc44/gcc/fortran/intrinsic.c:3820
#4  0x000000000042286d in gfc_check_assign (lvalue=0x7ffffad42a50, 
    rvalue=0x106d9a0, conform=1) at ../../gcc44/gcc/fortran/expr.c:2855
#5  0x00000000004229a0 in gfc_check_assign_symbol (sym=0x106d530, 
    rvalue=0x106d9a0) at ../../gcc44/gcc/fortran/expr.c:3029
#6  0x000000000041963d in add_init_expr_to_sym (name=<value optimized out>, 
    initp=0x7ffffad42c50, var_locus=0x7ffffad42c10)
    at ../../gcc44/gcc/fortran/decl.c:1231
#7  0x000000000041a01d in gfc_match_data_decl ()
    at ../../gcc44/gcc/fortran/decl.c:1776
#8  0x00000000004512d3 in match_word (str=0x2aaaaf664010 "", 
    subr=0x419da0 <gfc_match_data_decl>, old_locus=0x7ffffad42cd0)
    at ../../gcc44/gcc/fortran/parse.c:64
#9  0x00000000004518a3 in decode_statement ()
    at ../../gcc44/gcc/fortran/parse.c:280
#10 0x000000000045292b in next_statement ()


-- 
           Summary: Segfault with wide characters in DATA
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jvdelisle at gcc dot gnu dot org
  GCC host triplet: x86_64-unknown-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36319