[Bug fortran/87395] New: [9 Regression] ICE in in lookup_field_for_decl with whizard

[tkoenig at gcc dot gnu.org]

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

            Bug ID: 87395
           Summary: [9 Regression] ICE in in lookup_field_for_decl with
                    whizard
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: tkoenig at gcc dot gnu.org
  Target Milestone: ---

I was trying to debug PR 87395 a bit, and found that there was
an ICE now instead...

This is with r264506, so this is really recent. I have a sneaking
suspicion I may have caused this myself, with that exact revision...

make[1]: Entering directory '/home/ig25/Downloads/whizard-2.6.4/src/events'
  FC       eio_stdhep.lo
eio_stdhep.f90:343:0:

343 |   subroutine eio_stdhep_input_i_prc (eio, i_prc, iostat)
    | 
interner Compiler-Fehler: in lookup_field_for_decl, bei tree-nested.c:277
0x6d67b2 lookup_field_for_decl
        ../../trunk/gcc/tree-nested.c:277
0xe1d311 convert_local_reference_stmt
        ../../trunk/gcc/tree-nested.c:2282
0xb21436 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:568
0xb21620 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:51
0xb214f2 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:675
0xb21620 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:51
0xb214f2 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:675
0xb21620 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:51
0xb21542 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:631
0xb21620 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:51
0xb214f2 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:675
0xb21620 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:51
0xb21542 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:631
0xb21620 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:51
0xb214f2 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:675
0xb21620 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../trunk/gcc/gimple-walk.c:51
0xe18c08 walk_body
        ../../trunk/gcc/tree-nested.c:702
0xe192b8 walk_function
        ../../trunk/gcc/tree-nested.c:713
0xe192b8 walk_all_functions
        ../../trunk/gcc/tree-nested.c:778
0xe1f6cd lower_nested_functions(tree_node*)