[Bug fortran/99125] New: [9/10/11 Regression] ICE: gimplification failed (gimplify.c:15068)

[gscfq--- via Gcc-bugs]

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

            Bug ID: 99125
           Summary: [9/10/11 Regression] ICE: gimplification failed
                    (gimplify.c:15068)
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Changed between 20190310 and 20190331 :


$ cat z1.f90
program p
   type t
      character(:), allocatable :: a(:)
   end type
   type(t) :: x
   character(8) :: c(2) = '12 45 78'
   x%a = c
   print *, x%a(7:8)
end


$ gfortran-9-20190310 -c z1.f90
$
$ gfortran-11-20210214 -c z1.f90
gimplification failed:
0 <integer_cst 0x7fed577da288 type <integer_type 0x7fed577d1738
integer(kind=8)> constant 0>
z1.f90:8:20:

    8 |    print *, x%a(7:8)
      |                    ^
internal compiler error: gimplification failed
0xaaad94 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:15068
0xabe043 gimplify_modify_expr
        ../../gcc/gimplify.c:5833
0xaa9e9a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14070
0xaad8a8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6876
0xaa9793 gimplify_statement_list
        ../../gcc/gimplify.c:1879
0xaa9793 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14514
0xaad8a8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6876
0xaae243 gimplify_bind_expr
        ../../gcc/gimplify.c:1421
0xaaa612 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14271
0xaad8a8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6876
0xaa9793 gimplify_statement_list
        ../../gcc/gimplify.c:1879
0xaa9793 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14514
0xaad8a8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6876
0xaae243 gimplify_bind_expr
        ../../gcc/gimplify.c:1421
0xaaa612 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14271
0xaad8a8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6876
0xaa9793 gimplify_statement_list
        ../../gcc/gimplify.c:1879
0xaa9793 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14514
0xaad8a8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6876
0xaae243 gimplify_bind_expr
        ../../gcc/gimplify.c:1421