[Bug fortran/84133] New: [8 Regression] ICE in gimplify_var_or_parm_decl, at gimplify.c:2706

[gs...@t-online.de]

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

            Bug ID: 84133
           Summary: [8 Regression] ICE in gimplify_var_or_parm_decl, at
                    gimplify.c:2706
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Affects only version 8 at -Og, -Os, -O1 or higher.
Changed before 20170820.


$ cat z1.f90
program p
   real :: x(2,2) = 1.0
   real :: z(2,2)
   associate (y => matmul(x,x))
      z = y
   end associate
   print *, z
end


$ gfortran-7-20180125 z1.f90 -O2 -static-libgfortran
$ a.out
   2.00000000       2.00000000       2.00000000       2.00000000


$ gfortran-8-20180128 z1.f90 -O0 -static-libgfortran
$ a.out
   2.00000000       2.00000000       2.00000000       2.00000000


$ gfortran-8-20180128 z1.f90 -O2 -c
z1.f90:5:0:

       z = y

internal compiler error: in gimplify_var_or_parm_decl, at gimplify.c:2706
0x972641 gimplify_var_or_parm_decl
        ../../gcc/gimplify.c:2706
0x975667 gimplify_compound_lval
        ../../gcc/gimplify.c:2857
0x975667 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11387
0x9754c9 gimplify_addr_expr
        ../../gcc/gimplify.c:6030
0x9754c9 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11481
0x97dbf2 gimplify_modify_expr
        ../../gcc/gimplify.c:5626
0x974a4b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11435
0x976d76 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6658
0x974103 gimplify_statement_list
        ../../gcc/gimplify.c:1767
0x974103 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11863
0x976d76 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6658
0x97785f gimplify_bind_expr
        ../../gcc/gimplify.c:1335
0x9743b6 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11635
0x976d76 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6658
0x97785f gimplify_bind_expr
        ../../gcc/gimplify.c:1335
0x9743b6 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11635
0x976d76 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6658
0x9780ab gimplify_body(tree_node*, bool)
        ../../gcc/gimplify.c:12635
0x9784c5 gimplify_function_tree(tree_node*)
        ../../gcc/gimplify.c:12800
0x838b27 cgraph_node::analyze()
        ../../gcc/cgraphunit.c:670