[Bug fortran/78619] New: ICE in copy_reference_ops_from_ref, at tree-ssa-sccvn.c:889

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 78619
           Summary: ICE in copy_reference_ops_from_ref, at
                    tree-ssa-sccvn.c:889
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Invalid code affects versions 5, 6 and 7, at -Og, -Os, -O1 or higher.


$ cat z1.f90
function f(x) result(z)
   real :: x, z
   z = sign(1.0, f)
end


$ cat z2.f90
real function f(x) result(z)
   real :: x
   z = sign(1.0, f)
end


$ gfortran-7-20161127 -O2 z1.f90
z1.f90:3:17:

    z = sign(1.0, f)
                 1
Warning: Non-RECURSIVE procedure 'f' at (1) is possibly calling itself
recursively.  Declare it RECURSIVE or use '-frecursive'
z1.f90:4:0:

 end

internal compiler error: in copy_reference_ops_from_ref, at
tree-ssa-sccvn.c:889
0xe00f3b copy_reference_ops_from_ref
        ../../gcc/tree-ssa-sccvn.c:889
0xe02335 valueize_shared_reference_ops_from_ref
        ../../gcc/tree-ssa-sccvn.c:1528
0xe03aaa vn_reference_lookup(tree_node*, tree_node*, vn_lookup_kind,
vn_reference_s**, bool)
        ../../gcc/tree-ssa-sccvn.c:2427
0xe068ad visit_reference_op_load
        ../../gcc/tree-ssa-sccvn.c:3557
0xe068ad visit_use
        ../../gcc/tree-ssa-sccvn.c:3897
0xe08e4b process_scc
        ../../gcc/tree-ssa-sccvn.c:4128
0xe08e4b extract_and_process_scc_for_name
        ../../gcc/tree-ssa-sccvn.c:4215
0xe08e4b DFS
        ../../gcc/tree-ssa-sccvn.c:4267
0xe096bd sccvn_dom_walker::before_dom_children(basic_block_def*)
        ../../gcc/tree-ssa-sccvn.c:4733
0x12f3162 dom_walker::walk(basic_block_def*)
        ../../gcc/domwalk.c:265
0xe0a4d2 run_scc_vn(vn_lookup_kind)
        ../../gcc/tree-ssa-sccvn.c:4844
0xdd9064 execute
        ../../gcc/tree-ssa-pre.c:5151