https://gcc.gnu.org/bugzilla/show_bug.cgi?id=97927
Bug ID: 97927
Summary: gfortran: ICE in lookup_field_for_decl, at
tree-nested.c:288
Product: gcc
Version: 10.2.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: doko at debian dot org
Target Milestone: ---
[forwarded from https://bugs.debian.org/975219]
seen building elkcode-6.3.2 on x86_74-linux-gnu
gcc-10 branch, compiler configured with -enable-checking=yes,extra,rtl, didn't
check the trunk yet.
I can reproduce this locally, replacing mpif90 with gfortran. I'm failing to
construct a test case outside the build directory.
$ cd src; gfortran -c -fopenmp exxengy.f90
exxengy.f90:6:18:
6 | subroutine exxengy
| ^
internal compiler error: in lookup_field_for_decl, at tree-nested.c:288
0x71106d lookup_field_for_decl
../../src/gcc/tree-nested.c:288
0x111523e convert_local_reference_stmt
../../src/gcc/tree-nested.c:2408
0xd82a5a walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../src/gcc/gimple-walk.c:578
0xd82c20 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../src/gcc/gimple-walk.c:51
0xd82b11 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../src/gcc/gimple-walk.c:686
0xd82c20 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../src/gcc/gimple-walk.c:51
0xd82b11 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../src/gcc/gimple-walk.c:686
0xd82c20 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../src/gcc/gimple-walk.c:51
0xd82b51 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../src/gcc/gimple-walk.c:641
0xd82c20 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../src/gcc/gimple-walk.c:51
0xd82b51 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../src/gcc/gimple-walk.c:641
0xd82c20 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../src/gcc/gimple-walk.c:51
0xd82b11 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../src/gcc/gimple-walk.c:686
0xd82c20 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../src/gcc/gimple-walk.c:51
0x110d154 walk_body
../../src/gcc/tree-nested.c:713
0x110d154 walk_function
../../src/gcc/tree-nested.c:724
0x110d154 walk_all_functions
../../src/gcc/tree-nested.c:789
0x111360a lower_nested_functions(tree_node*)
../../src/gcc/tree-nested.c:3580
0xbe8e4c cgraph_node::analyze()
../../src/gcc/cgraphunit.c:676
0xbec017 analyze_functions
../../src/gcc/cgraphunit.c:1227
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
