[Bug fortran/85954] New: [8/9 Regression] ICE in make_ssa_name_fn, at tree-ssanames.c:266

[gscfq@t-online.de]

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

            Bug ID: 85954
           Summary: [8/9 Regression] ICE in make_ssa_name_fn, at
                    tree-ssanames.c:266
           Product: gcc
           Version: 9.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 20170924 and 20171008, ICE at -O[s123] :


$ cat z1.f90
program p
   character(:), allocatable :: z(:)
   call s(z)
contains
   subroutine s(x)
      character(:), allocatable :: x(:)
      associate (y => x)
         y = ['abc']
      end associate
      print *, allocated(x), size(x), len(x), x
   end
end


$ gfortran-8-20170924 -c z1.f90 -O2
$
$ gfortran-9-20180527 -c z1.f90 -O2
during IPA pass: materialize-all-clones
z1.f90:3:0:

    call s(z)

internal compiler error: Segmentation fault
0xba072f crash_signal
        ../../gcc/toplev.c:325
0xd690a7 make_ssa_name_fn(function*, tree_node*, gimple*, unsigned int)
        ../../gcc/tree-ssanames.c:266
0xc068ae make_ssa_name
        ../../gcc/tree-ssanames.h:115
0xc068ae remap_ssa_name
        ../../gcc/tree-inline.c:241
0xc0ba47 copy_tree_body_r(tree_node**, int*, void*)
        ../../gcc/tree-inline.c:1091
0xdee123 walk_tree_1(tree_node**, tree_node* (*)(tree_node**, int*, void*),
void*, hash_set<tree_node*, default_hash_traits<tree_node*> >*, tree_node*
(*)(tree_node**, int*, tree_node* (*)(tree_node**, int*, void*), void*,
hash_set<tree_node*, default_hash_traits<tree_node*> >*))
        ../../gcc/tree.c:11400
0xdee313 walk_tree_1(tree_node**, tree_node* (*)(tree_node**, int*, void*),
void*, hash_set<tree_node*, default_hash_traits<tree_node*> >*, tree_node*
(*)(tree_node**, int*, tree_node* (*)(tree_node**, int*, void*), void*,
hash_set<tree_node*, default_hash_traits<tree_node*> >*))
        ../../gcc/tree.c:11716
0xc061bc remap_type_1
        ../../gcc/tree-inline.c:574
0xc063b1 remap_type(tree_node*, copy_body_data*)
        ../../gcc/tree-inline.c:603
0xc061f6 remap_type_1
        ../../gcc/tree-inline.c:518
0xc063b1 remap_type(tree_node*, copy_body_data*)
        ../../gcc/tree-inline.c:603
0xc05ff8 remap_type_1
        ../../gcc/tree-inline.c:421
0xc063b1 remap_type(tree_node*, copy_body_data*)
        ../../gcc/tree-inline.c:603
0xc0c14b remap_gimple_op_r
        ../../gcc/tree-inline.c:948
0xdee123 walk_tree_1(tree_node**, tree_node* (*)(tree_node**, int*, void*),
void*, hash_set<tree_node*, default_hash_traits<tree_node*> >*, tree_node*
(*)(tree_node**, int*, tree_node* (*)(tree_node**, int*, void*), void*,
hash_set<tree_node*, default_hash_traits<tree_node*> >*))
        ../../gcc/tree.c:11400
0x975a5a walk_gimple_op(gimple*, tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../gcc/gimple-walk.c:203
0xc074bc remap_gimple_stmt
        ../../gcc/tree-inline.c:1767
0xc0813e copy_bb
        ../../gcc/tree-inline.c:1817
0xc0962a copy_cfg_body
        ../../gcc/tree-inline.c:2730
0xc0962a copy_body
        ../../gcc/tree-inline.c:2973