[Bug fortran/107821] New: ICE in gfc_conv_scalarized_array_ref, at fortran/trans-array.cc:3723

[gscfq--- via Gcc-bugs]

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

            Bug ID: 107821
           Summary: ICE in gfc_conv_scalarized_array_ref, at
                    fortran/trans-array.cc:3723
           Product: gcc
           Version: 13.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Affects versions down to at least r5 :


$ cat z1.f90
program p
   associate (a => 1)
      print *, [character((a(1))) :: '1']
   end associate
end

$ cat z2.f90
program p
   associate (a => 1)
      print *, [character((a((1)))) :: '1']
   end associate
end

$ cat z3.f90
program p
   associate (a => 1)
      print *, [character(((a(1)))) :: '1']
   end associate
end

$ cat z0.f90
program p
   associate (a => 1)
      print *, [character(a(1)) :: '1']
   end associate
end


$ gfortran-13-20221120 -c z0.f90
z0.f90:3:26:

    3 |       print *, [character(a(1)) :: '1']
      |                          1
Error: Scalar INTEGER expression expected at (1)


$ gfortran-13-20221120 -c z1.f90
z1.f90:3:41:

    3 |       print *, [character((a(1))) :: '1']
      |                                         1
internal compiler error: Segmentation fault
0xda0f4f crash_signal
        ../../gcc/toplev.cc:314
0x87e95a gfc_conv_scalarized_array_ref
        ../../gcc/fortran/trans-array.cc:3723
0x87f45e gfc_conv_array_ref(gfc_se*, gfc_array_ref*, gfc_expr*, locus*)
        ../../gcc/fortran/trans-array.cc:3879
0x8ae66e gfc_conv_variable
        ../../gcc/fortran/trans-expr.cc:3104
0x8aa9ea gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.cc:9469
0x8aaaf6 gfc_conv_expr_op
        ../../gcc/fortran/trans-expr.cc:3782
0x8aaaf6 gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.cc:9457
0x8ad813 gfc_conv_expr_val(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.cc:9514
0x8ad960 gfc_conv_expr_type(gfc_se*, gfc_expr*, tree_node*)
        ../../gcc/fortran/trans-expr.cc:9528
0x887e0f trans_array_constructor
        ../../gcc/fortran/trans-array.cc:2783
0x887e0f gfc_add_loop_ss_code
        ../../gcc/fortran/trans-array.cc:3181
0x8880f5 gfc_conv_loop_setup(gfc_loopinfo*, locus*)
        ../../gcc/fortran/trans-array.cc:5478
0x8ddd45 gfc_trans_transfer(gfc_code*)
        ../../gcc/fortran/trans-io.cc:2671
0x879a37 trans_code
        ../../gcc/fortran/trans.cc:2170
0x8db6ce build_dt
        ../../gcc/fortran/trans-io.cc:2051
0x879a17 trans_code
        ../../gcc/fortran/trans.cc:2142
0x8f71af gfc_trans_block_construct(gfc_code*)
        ../../gcc/fortran/trans-stmt.cc:2314
0x879917 trans_code
        ../../gcc/fortran/trans.cc:2046
0x8a2e1e gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.cc:7674
0x824fae translate_all_program_units
        ../../gcc/fortran/parse.cc:6696