[Bug fortran/88138] New: ICE in gfc_arith_concat, at fortran/arith.c:1007

[gscfq@t-online.de]

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: gscfq@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