[Bug fortran/107425] New: [12/13 Regression] ICE in gimplify_var_or_parm_decl, at gimplify.cc:3060

[gscfq--- via Gcc-bugs]

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

            Bug ID: 107425
           Summary: [12/13 Regression] ICE in gimplify_var_or_parm_decl,
                    at gimplify.cc:3060
           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: ---

Started between 20220116 and 20220123 :
(j has no value)


$ cat z1.f90
program p
   integer :: x(8)
   !$omp taskwait depend(iterator(i=1:8), in:x(j))
end


$ gfortran-12-20220116 -c z1.f90 -fopenmp
$
$ gfortran-13-20221023 -c z1.f90 -fopenmp
z1.f90:3:50:

    3 |    !$omp taskwait depend(iterator(i=1:8), in:x(j))
      |                                                  ^
internal compiler error: in gimplify_var_or_parm_decl, at gimplify.cc:3060
0xc030eb gimplify_var_or_parm_decl
        ../../gcc/gimplify.cc:3060
0xc0fd1f gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16815
0xc0dc52 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16457
0xc0d7f3 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:17134
0xc19633 gimplify_compound_lval
        ../../gcc/gimplify.cc:3303
0xc0d87a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16306
0xc20d8a gimplify_addr_expr
        ../../gcc/gimplify.cc:6555
0xc0f47d gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16401
0xc1f78f gimplify_modify_expr
        ../../gcc/gimplify.cc:6147
0xc0fc37 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16354
0xc13b18 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.cc:7213
0xc0ef0b gimplify_statement_list
        ../../gcc/gimplify.cc:2021
0xc0ef0b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16799
0xc13b18 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.cc:7213
0xc144a3 gimplify_bind_expr
        ../../gcc/gimplify.cc:1430
0xc0f41a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16555
0xc13b18 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.cc:7213
0xc0ef0b gimplify_statement_list
        ../../gcc/gimplify.cc:2021
0xc0ef0b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16799
0xc13b18 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.cc:7213