[Bug fortran/103789] New: ICE when providing kind argument to mask{l,r}

[mikael at gcc dot gnu.org via Gcc-bugs]

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

            Bug ID: 103789
           Summary: ICE when providing kind argument to mask{l,r}
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: mikael at gcc dot gnu.org
  Target Milestone: ---

program p
   integer :: z(2), y(2)
   y = [1, 13]
   z = maskl(y, kind=4) + 1
end


test.f90:4:27:

    4 |    z = maskl(y, kind=4) + 1
      |                           1
internal compiler error: in gfc_conv_constant, at fortran/trans-const.c:415
0x682a2a gfc_conv_constant(gfc_se*, gfc_expr*)
        ../../src/gcc/fortran/trans-const.c:415
0x9b83b7 gfc_conv_expr_op
        ../../src/gcc/fortran/trans-expr.c:3894
0x9b83b7 gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../src/gcc/fortran/trans-expr.c:9390
0x9c52ac gfc_trans_assignment_1
        ../../src/gcc/fortran/trans-expr.c:11687
0x975837 trans_code
        ../../src/gcc/fortran/trans.c:1916
0x9a7b4f gfc_generate_function_code(gfc_namespace*)
        ../../src/gcc/fortran/trans-decl.c:7644
0x92223e translate_all_program_units
        ../../src/gcc/fortran/parse.c:6638
0x92223e gfc_parse_file()
        ../../src/gcc/fortran/parse.c:6925
0x9726ff gfc_be_parse_file
        ../../src/gcc/fortran/f95-lang.c:216