[Bug fortran/90561] New: [9/10 Regression] ICE in gimplify_var_or_parm_decl, at gimplify.c:2747

[gscfq@t-online.de]

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

            Bug ID: 90561
           Summary: [9/10 Regression] ICE in gimplify_var_or_parm_decl, at
                    gimplify.c:2747
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Changed between 20180923 and 20180930 :


$ cat z1.f90
program p
   character(:), allocatable :: z(:)
   z = [character(2):: 'ab', 'xy']
   z = z(2)
end


$ gfortran-9-20180923 -c z1.f90
$
$ gfortran-10-20190519 -c z1.f90
z1.f90:4:0:

    4 |    z = z(2)
      |
internal compiler error: in gimplify_var_or_parm_decl, at gimplify.c:2747
0x8f7134 gimplify_var_or_parm_decl
        ../../gcc/gimplify.c:2747
0x8f86f7 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12909
0x902c29 gimplify_modify_expr
        ../../gcc/gimplify.c:5678
0x8f8fed gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12464
0x8fb888 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6709
0x8f9c8b gimplify_statement_list
        ../../gcc/gimplify.c:1788
0x8f9c8b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12893
0x8fb888 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6709
0x8fc1e1 gimplify_bind_expr
        ../../gcc/gimplify.c:1356
0x8f93fb gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12665
0x8fb888 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6709
0x8f9c8b gimplify_statement_list
        ../../gcc/gimplify.c:1788
0x8f9c8b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12893
0x8fb888 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6709
0x8fc1e1 gimplify_bind_expr
        ../../gcc/gimplify.c:1356
0x8f93fb gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12665
0x8fb888 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6709
0x8fcc1a gimplify_body(tree_node*, bool)
        ../../gcc/gimplify.c:13673
0x8fcf05 gimplify_function_tree(tree_node*)
        ../../gcc/gimplify.c:13817
0x7adc37 cgraph_node::analyze()
        ../../gcc/cgraphunit.c:667
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.