https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88138
Bug ID: 88138
Summary: ICE in gfc_arith_concat, at fortran/arith.c:1007
Product: gcc
Version: 9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
With invalid code down to at least gcc-5 :
$ cat z1.f90
program p
type t
character :: c = 'c'
end type
type(t), parameter :: x = 1e1
print *, 'a'//x%c
end
$ cat z2.f90
program p
type t
character :: c = 'c'
end type
type(t), parameter :: x = .true.
print *, 'a'//x%c
end
$ gfortran-9-20181118 -c z1.f90
f951: internal compiler error: Segmentation fault
0xb2a03f crash_signal
../../gcc/toplev.c:325
0x5e8259 gfc_arith_concat
../../gcc/fortran/arith.c:1007
0x5e773a reduce_binary
../../gcc/fortran/arith.c:1425
0x5e7a9b eval_intrinsic
../../gcc/fortran/arith.c:1606
0x650aaa match_level_3
../../gcc/fortran/matchexp.c:571
0x650b74 match_level_4
../../gcc/fortran/matchexp.c:599
0x650b74 match_and_operand
../../gcc/fortran/matchexp.c:693
0x650d62 match_or_operand
../../gcc/fortran/matchexp.c:722
0x650e32 match_equiv_operand
../../gcc/fortran/matchexp.c:765
0x650f04 match_level_5
../../gcc/fortran/matchexp.c:811
0x6502e1 gfc_match_expr(gfc_expr**)
../../gcc/fortran/matchexp.c:870
0x638e23 match_io_element
../../gcc/fortran/io.c:3587
0x63b795 match_io_list
../../gcc/fortran/io.c:3626
0x63bba4 match_io
../../gcc/fortran/io.c:4287
0x63f3aa gfc_match_print()
../../gcc/fortran/io.c:4344
0x66a891 match_word
../../gcc/fortran/parse.c:65
0x66e727 decode_statement
../../gcc/fortran/parse.c:536
0x66ebfa next_free
../../gcc/fortran/parse.c:1234
0x66ebfa next_statement
../../gcc/fortran/parse.c:1466
0x67020b parse_spec
../../gcc/fortran/parse.c:3858
