[Bug fortran/103368] New: [11/12 Regression] ICE in gimplify_expr, at gimplify.c:15668

[gscfq--- via Gcc-bugs]

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

            Bug ID: 103368
           Summary: [11/12 Regression] ICE in gimplify_expr, at
                    gimplify.c:15668
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Changed between 20211017 and 20211024 :


$ cat z1.f90
program p
   type t
   end type
   type t2
      class(*), allocatable :: a
   end type
   type(t) :: x
   call sub (t2(x))
end


$ gfortran-12-20211017 -c z1.f90
z1.f90:8:16:

    8 |    call sub (t2(x))
      |                1
Error: Cannot convert TYPE(t) to CLASS(*) at (1)


$ gfortran-12-20211121 -c z1.f90
z1.f90:8:19:

    8 |    call sub (t2(x))
      |                   ^
internal compiler error: in gimplify_expr, at gimplify.c:15668
0xad2dc5 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:15668
0xad862b gimplify_modify_expr
        ../../gcc/gimplify.c:5983
0xad019a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14666
0xad2df8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xad0a6b gimplify_statement_list
        ../../gcc/gimplify.c:2012
0xad0a6b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:15111
0xad2df8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xad3351 gimplify_bind_expr
        ../../gcc/gimplify.c:1426
0xad060a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14867
0xad2df8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xad0a6b gimplify_statement_list
        ../../gcc/gimplify.c:2012
0xad0a6b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:15111
0xad2df8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xad3351 gimplify_bind_expr
        ../../gcc/gimplify.c:1426
0xad060a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14867
0xad2df8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xad3351 gimplify_bind_expr
        ../../gcc/gimplify.c:1426
0xad060a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14867
0xad2df8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:7024
0xad3e6b gimplify_body(tree_node*, bool)
        ../../gcc/gimplify.c:15912