[Bug fortran/50974] ICE on invalid on function used as variable

[gscfq@t-online.de]

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

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

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

--- Comment #4 from G. Steinmetz <gscfq@t-online.de> ---
Update : No ICE with a release version 9 to 5,
but when configured with --enable-checking=yes.


$ cat z1.f90
program p
contains
   real function f()
      f = g
   end
   real function g()
   end
end


$ gfortran-9-20181021 -c z1.f90
$
$ gfortran-9-20181021-chk -c z1.f90
z1.f90:3:0:

    3 |    real function f()
      |
Error: invalid types in conversion to floating point
real(kind=4)
real(kind=4) (*<T5a6>) (void)
_1 = (real(kind=4)) g;
z1.f90:3:0: internal compiler error: verify_gimple failed
0xcb79bd verify_gimple_in_seq(gimple*)
        ../../gcc/tree-cfg.c:5082
0x9e9b55 gimplify_body(tree_node*, bool)
        ../../gcc/gimplify.c:12859
0x9e9e44 gimplify_function_tree(tree_node*)
        ../../gcc/gimplify.c:12949
0xd20abf gimplify_all_functions
        ../../gcc/tree-nested.c:3405
0xd20aaf gimplify_all_functions
        ../../gcc/tree-nested.c:3408
0xd2a4ee lower_nested_functions(tree_node*)
        ../../gcc/tree-nested.c:3425
0x827310 cgraph_node::analyze()
        ../../gcc/cgraphunit.c:673
0x82a799 analyze_functions
        ../../gcc/cgraphunit.c:1126
0x82b892 symbol_table::finalize_compilation_unit()
        ../../gcc/cgraphunit.c:2833