[Bug fortran/103390] New: [12 Regression] ICE: gimplification failed

[gscfq@t-online.de]

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

            Bug ID: 103390
           Summary: [12 Regression] ICE: gimplification failed
           Product: gcc
           Version: 12.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 20211017 and 20211024 :
(ok without bind(c))


$ cat z1.f90
program p
   integer, pointer :: z(:)
   integer, target :: x(3) = [1, 2, 3]
   z => x
   call s(shape(z))
contains
   subroutine s(x) bind(c)
      integer, contiguous :: x(:)
   end
end


$ gfortran-12-20211017 -c z1.f90
$
$ gfortran-12-20211121 -c z1.f90
gimplification failed:
(integer(kind=4)) _33 <nop_expr 0x7f16948401a0
    type <integer_type 0x7f169465a5e8 integer(kind=4) sizes-gimplified public
SI
        size <integer_cst 0x7f1694643e40 constant 32>
        unit-size <integer_cst 0x7f1694643e58 constant 4>
        align:32 warn_if_not_align:0 symtab:0 alias-set 3 canonical-type
0x7f169465a5e8 precision:32 min <integer_cst 0x7f1694643df8 -2147483648> max
<integer_cst 0x7f1694643e10 2147483647>
        pointer_to_this <pointer_type 0x7f1694662a80>>

    arg:0 <ssa_name 0x7f169444c1b0
        type <integer_type 0x7f169483ce70 public unsigned SI size <integer_cst
0x7f1694643e40 32> unit-size <integer_cst 0x7f1694643e58 4>
            align:32 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x7f169483ce70 precision:32 min <integer_cst 0x7f1694828bd0 0> max <integer_cst
0x7f1694828558 4294967295>>

        def_stmt _33 = _32 + 1;
        version:33>
    z1.f90:5:19 start: z1.f90:5:19 finish: z1.f90:5:19>
z1.f90:5:19:

    5 |    call s(shape(z))
      |                   ^
internal compiler error: gimplification failed
0xbdad08 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:15679
0xbe91bb gimplify_modify_expr
        ../../gcc/gimplify.c:5973
0xbd9aa7 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14666
0xbddd78 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xbd93db gimplify_statement_list
        ../../gcc/gimplify.c:2012
0xbd93db gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:15111
0xbddd78 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xbd974c gimplify_and_add(tree_node*, gimple**)
        ../../gcc/gimplify.c:494
0xbd974c gimplify_loop_expr
        ../../gcc/gimplify.c:1986
0xbd974c gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14871
0xbddd78 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xbd93db gimplify_statement_list
        ../../gcc/gimplify.c:2012
0xbd93db gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:15111
0xbddd78 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xbde713 gimplify_bind_expr
        ../../gcc/gimplify.c:1426
0xbda08a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14867
0xbddd78 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xbe4780 gimplify_cond_expr
        ../../gcc/gimplify.c:4393
0xbda65f gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14623
0xbddd78 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024