[Bug fortran/99349] New: ICE in match_data_constant, at fortran/decl.c:426

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 99349
           Summary: ICE in match_data_constant, at fortran/decl.c:426
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Started with r9, between 20181028 and 20181104 :


$ cat z1.f90
function f()
   logical, parameter :: a((1.)/0) = .true.
   integer :: b
   data b /a%kind/
end


$ gfortran-11-20210228 -c z1.f90
f951: internal compiler error: Segmentation fault
0xc0666f crash_signal
        ../../gcc/toplev.c:327
0x66dab4 match_data_constant
        ../../gcc/fortran/decl.c:426
0x66dc63 top_val_list
        ../../gcc/fortran/decl.c:499
0x66df72 gfc_match_data()
        ../../gcc/fortran/decl.c:716
0x6d87e1 match_word
        ../../gcc/fortran/parse.c:65
0x6dca2e decode_statement
        ../../gcc/fortran/parse.c:469
0x6dd79c next_free
        ../../gcc/fortran/parse.c:1316
0x6dd79c next_statement
        ../../gcc/fortran/parse.c:1548
0x6dee0b parse_spec
        ../../gcc/fortran/parse.c:3967
0x6e1bdc parse_progunit
        ../../gcc/fortran/parse.c:5896
0x6e35e7 gfc_parse_file()
        ../../gcc/fortran/parse.c:6451
0x72fd7f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:212