https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100274
Bug ID: 100274
Summary: [9/10/11/12 Regression] ICE in
gfc_conv_procedure_call, at fortran/trans-expr.c:6131
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: ---
Changed with r9 between 20180916 and 20180923 :
(as a supplement to pr100154)
$ cat z1.f90
program p
call s('x')
contains
subroutine s(x)
character(8), intent(out) :: x
end
end
$ gfortran-9-20180916 -c z1.f90
z1.f90:2:10:
2 | call s('x')
| 1
Warning: Character length of actual argument shorter than of dummy argument 'x'
(1/8) at (1) [-Wargument-mismatch]
$ gfortran-11-20210425 -c z1.f90
z1.f90:2:10:
2 | call s('x')
| 1
Warning: Character length of actual argument shorter than of dummy argument 'x'
(1/8) at (1)
z1.f90:2:14:
2 | call s('x')
| 1
internal compiler error: Segmentation fault
0xc0b78f crash_signal
../../gcc/toplev.c:327
0x77206f gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
../../gcc/fortran/trans-expr.c:6131
0x7a9ba8 gfc_trans_call(gfc_code*, bool, tree_node*, tree_node*, bool)
../../gcc/fortran/trans-stmt.c:424
0x739e38 trans_code
../../gcc/fortran/trans.c:2000
0x760094 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6885
0x6e6a36 translate_all_program_units
../../gcc/fortran/parse.c:6355
0x6e6a36 gfc_parse_file()
../../gcc/fortran/parse.c:6624
0x732d2f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:212
