[Bug fortran/77325] New: ICE in gimplify_var_or_parm_decl, at gimplify.c:1933

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 77325
           Summary: ICE in gimplify_var_or_parm_decl, at gimplify.c:1933
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

For versions down to at least 4.8 :


$ cat z1.f90
program p
   character(1), parameter :: c(3) = ['a', 'b', 'c']
   character(:), allocatable :: z(:)
   z = c([1])
end


$ gfortran-7-20160821 z1.f90
z1.f90:4:0:

    z = c([1])

internal compiler error: in gimplify_var_or_parm_decl, at gimplify.c:1933
0x9acaef gimplify_var_or_parm_decl
        ../../gcc/gimplify.c:1933
0x9b0dfc gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:10945
0x9af9c2 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11232
0x9b9072 gimplify_compound_lval
        ../../gcc/gimplify.c:2210
0x9afbfa gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:10464
0x9c2bef gimplify_modify_expr
        ../../gcc/gimplify.c:4808
0x9b1a3a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:10512
0x9b4d96 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:5804
0x9afd4b gimplify_statement_list
        ../../gcc/gimplify.c:1549
0x9afd4b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:10929
0x9b4d96 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:5804
0x9b5fe5 gimplify_bind_expr
        ../../gcc/gimplify.c:1154
0x9b1ef5 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:10711
0x9b4d96 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:5804
0x9afd4b gimplify_statement_list
        ../../gcc/gimplify.c:1549
0x9afd4b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:10929
0x9b4d96 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:5804
0x9b5fe5 gimplify_bind_expr
        ../../gcc/gimplify.c:1154
0x9b1ef5 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:10711
0x9b4d96 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:5804