[Bug fortran/107680] New: ICE in arith_power, at fortran/arith.cc:989 and :1006

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

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

            Bug ID: 107680
           Summary: ICE in arith_power, at fortran/arith.cc:989 and :1006
           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 :


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

$ cat z2.f90
program p
   print *, [complex :: ([1])] ** 2.0
end

$ cat z3.f90
program p
   print *, [complex :: ([1])] ** (1.0,2.0)
end


$ gfortran-13-20221106 -c z1.f90
f951: internal compiler error: Segmentation fault
0xf4697f crash_signal
        ../../gcc/toplev.cc:314
0x7c4b87 arith_power
        ../../gcc/fortran/arith.cc:989
0x7c2ce9 reduce_binary_ac
        ../../gcc/fortran/arith.cc:1365
0x7c2d3e reduce_binary_ac
        ../../gcc/fortran/arith.cc:1369
0x7c2f9f reduce_binary
        ../../gcc/fortran/arith.cc:1520
0x7c33d2 eval_intrinsic
        ../../gcc/fortran/arith.cc:1701
0x835df6 match_mult_operand
        ../../gcc/fortran/matchexp.cc:288
0x835f98 match_add_operand
        ../../gcc/fortran/matchexp.cc:356
0x8361ec match_level_2
        ../../gcc/fortran/matchexp.cc:480
0x836342 match_level_3
        ../../gcc/fortran/matchexp.cc:551
0x836434 match_level_4
        ../../gcc/fortran/matchexp.cc:599
0x836434 match_and_operand
        ../../gcc/fortran/matchexp.cc:693
0x836622 match_or_operand
        ../../gcc/fortran/matchexp.cc:722
0x8366f2 match_equiv_operand
        ../../gcc/fortran/matchexp.cc:765
0x8367c4 match_level_5
        ../../gcc/fortran/matchexp.cc:811
0x835b91 gfc_match_expr(gfc_expr**)
        ../../gcc/fortran/matchexp.cc:870
0x81d289 match_io_element
        ../../gcc/fortran/io.cc:3668
0x81fbba match_io_list
        ../../gcc/fortran/io.cc:3716
0x81ffbe match_io
        ../../gcc/fortran/io.cc:4394
0x823aba gfc_match_print()
        ../../gcc/fortran/io.cc:4450