[Bug fortran/102595] New: ICE in var_element, at fortran/decl.c:298

[gscfq--- via Gcc-bugs]

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

            Bug ID: 102595
           Summary: ICE in var_element, at fortran/decl.c:298
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Started with r10 :


$ cat z1.f90
program p
   complex, parameter :: x(0) = 2
   data x%im /3.0/
end


$ cat z2.f90
program p
   complex, parameter :: x(1) = 2
   data x%im /3.0/
end


$ gfortran-12-20211003 -c z2.f90
z2.f90:3:12:

    3 |    data x%im /3.0/
      |            1
Error: PARAMETER 'x' shall not appear in a DATA statement at (1)


$ gfortran-12-20211003 -c z1.f90
f951: internal compiler error: Segmentation fault
0xd41bdf crash_signal
        ../../gcc/toplev.c:331
0x77b0ed var_element
        ../../gcc/fortran/decl.c:298
0x77d4c4 top_var_list
        ../../gcc/fortran/decl.c:338
0x77d4c4 gfc_match_data()
        ../../gcc/fortran/decl.c:655
0x7eb6f1 match_word
        ../../gcc/fortran/parse.c:65
0x7f065e decode_statement
        ../../gcc/fortran/parse.c:469
0x7f13ca next_free
        ../../gcc/fortran/parse.c:1384
0x7f13ca next_statement
        ../../gcc/fortran/parse.c:1616
0x7f2aeb parse_spec
        ../../gcc/fortran/parse.c:4151
0x7f58bc parse_progunit
        ../../gcc/fortran/parse.c:6117
0x7f7041 gfc_parse_file()
        ../../gcc/fortran/parse.c:6658
0x843f3f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216