[Bug fortran/77382] ICE: verify_gimple failed -- expand_expr_real_1, at expr.c:9651

[gscfq@t-online.de]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gscfq@t-online.de

--- Comment #5 from G. Steinmetz <gscfq@t-online.de> ---

Modified invalid code ICEs only at -O0 :


$ cat z1.f90
subroutine g(x)
entry h(g)
end
program p
   call g(1.0)
   call h(2.0)
end


$ gfortran-9-20181118 -c z1.f90 -O0
z1.f90:6:14:

    6 |    call h(2.0)
      |              1
Warning: Type mismatch in argument 'g' at (1); passed REAL(4) to UNKNOWN
[-Wargument-mismatch]
during RTL pass: expand
z1.f90:5:0:

    5 |    call g(1.0)
      |
internal compiler error: in expand_expr_real_1, at expr.c:9932
0x876586 expand_expr_real_1(tree_node*, rtx_def*, machine_mode,
expand_modifier, rtx_def**, bool)
        ../../gcc/expr.c:9926
0x76f264 expand_normal
        ../../gcc/expr.h:285
0x76f264 rtx_for_function_call
        ../../gcc/calls.c:2530
0x76f264 expand_call(tree_node*, rtx_def*, int)
        ../../gcc/calls.c:4031
0x87497e expand_expr_real_1(tree_node*, rtx_def*, machine_mode,
expand_modifier, rtx_def**, bool)
        ../../gcc/expr.c:10947
0x77c26a expand_expr
        ../../gcc/expr.h:279
0x77c26a expand_call_stmt
        ../../gcc/cfgexpand.c:2713
0x77c26a expand_gimple_stmt_1
        ../../gcc/cfgexpand.c:3650
0x77c26a expand_gimple_stmt
        ../../gcc/cfgexpand.c:3809
0x77dc87 expand_gimple_basic_block
        ../../gcc/cfgexpand.c:5845
0x7832c6 execute
        ../../gcc/cfgexpand.c:6450