[Bug fortran/107219] New: ICE in reduce_unary, at fortran/arith.cc:1290

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

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

            Bug ID: 107219
           Summary: ICE in reduce_unary, at fortran/arith.cc:1290
           Product: gcc
           Version: 13.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Affects versions down to at least r5 :
(in addition to pr93483_c2_first_print)


$ cat z1.f90
program p
   print *, -[real :: [(1)]]
   print *, +[real :: [-(1)]]
   print *, -[real :: [[(1)]]]
end


$ gfortran-13-20221009 -c z1.f90
f951: internal compiler error: Segmentation fault
0xf3feef crash_signal
        ../../gcc/toplev.cc:314
0x7becaf reduce_unary
        ../../gcc/fortran/arith.cc:1290
0x7bec7f reduce_unary
        ../../gcc/fortran/arith.cc:1277
0x7bec7f reduce_unary
        ../../gcc/fortran/arith.cc:1277
0x7bf408 eval_intrinsic
        ../../gcc/fortran/arith.cc:1652
0x832374 match_level_2
        ../../gcc/fortran/matchexp.cc:490
0x832392 match_level_3
        ../../gcc/fortran/matchexp.cc:551
0x832484 match_level_4
        ../../gcc/fortran/matchexp.cc:599
0x832484 match_and_operand
        ../../gcc/fortran/matchexp.cc:693
0x832672 match_or_operand
        ../../gcc/fortran/matchexp.cc:722
0x832742 match_equiv_operand
        ../../gcc/fortran/matchexp.cc:765
0x832814 match_level_5
        ../../gcc/fortran/matchexp.cc:811
0x831be1 gfc_match_expr(gfc_expr**)
        ../../gcc/fortran/matchexp.cc:870
0x8192d9 match_io_element
        ../../gcc/fortran/io.cc:3668
0x81bc0a match_io_list
        ../../gcc/fortran/io.cc:3716
0x81c00e match_io
        ../../gcc/fortran/io.cc:4394
0x81fb0a gfc_match_print()
        ../../gcc/fortran/io.cc:4450
0x851e41 match_word
        ../../gcc/fortran/parse.cc:67
0x857aa3 decode_statement
        ../../gcc/fortran/parse.cc:539
0x857eda next_free
        ../../gcc/fortran/parse.cc:1402