[Bug fortran/103414] New: [10/11/12 Regression] ICE in gfc_free_actual_arglist, at fortran/expr.c:547

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

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

            Bug ID: 103414
           Summary: [10/11/12 Regression] ICE in gfc_free_actual_arglist,
                    at fortran/expr.c:547
           Product: gcc
           Version: 12.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 r10, between 20190630 and 20190728 :


$ cat z1.f90
program p
   type t(n)
      integer, kind :: n
      character(n) :: c = ''
   end type
   type(t(3)) :: x = t(z'1')
end


$ cat z2.f90
program p
   type t(n)
      integer, kind :: n
      character(n) :: c = ''
   end type
   type(t(3)) :: x(1) = [t(z'1')]
end


$ gfortran-12-20211121 -c z2.f90
z2.f90:6:33:

    6 |    type(t(3)) :: x(1) = [t(z'1')]
      |                                 1
Error: The parameter expression at (1) must be of INTEGER type and not BOZ type
# hangs ...


$ gfortran-12-20211121 -c z1.f90
*** Error in `.../gcc/x86_64-pc-linux-gnu/12.0.0/f951': double free or
corruption (fasttop): 0x000000000298bdf0 ***
f951: internal compiler error: Aborted
0xd6009f crash_signal
        ../../gcc/toplev.c:322
0x79965c gfc_free_actual_arglist(gfc_actual_arglist*)
        ../../gcc/fortran/expr.c:547
0x788c66 gfc_match_data_decl()
        ../../gcc/fortran/decl.c:6340
0x7f3df3 match_word
        ../../gcc/fortran/parse.c:67
0x7f3df3 decode_statement
        ../../gcc/fortran/parse.c:378
0x7f583a next_free
        ../../gcc/fortran/parse.c:1397
0x7f583a next_statement
        ../../gcc/fortran/parse.c:1629
0x7f6f5b parse_spec
        ../../gcc/fortran/parse.c:4168
0x7fa2bc parse_progunit
        ../../gcc/fortran/parse.c:6179
0x7fb5a1 gfc_parse_file()
        ../../gcc/fortran/parse.c:6724
0x848a6f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216