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: gs...@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
