https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67760
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |gs...@t-online.de
--- Comment #3 from G. Steinmetz <gs...@t-online.de> ---
Update :
$ cat z1.f90
module m
implicit none
contains
function f()
integer :: f(4)
call s
contains
subroutine s
f = 42
end
end
end
program p
use m
print *, f()
end
$ gfortran-9-20181021 -c z1.f90
z1.f90:4:0:
4 | function f()
|
internal compiler error: stride.0 from s referenced in f
0xba2c19 convert_nonlocal_reference_op
../../gcc/tree-nested.c:1053
0xd59f65 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:11513
0x8f1f1d walk_gimple_op(gimple*, tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../gcc/gimple-walk.c:221
0x8f2128 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../gcc/gimple-walk.c:586
0x8f22d0 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../gcc/gimple-walk.c:51
0x8f21d1 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../gcc/gimple-walk.c:595
0x8f22d0 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../gcc/gimple-walk.c:51
0x8f21d1 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
../../gcc/gimple-walk.c:595
0x8f22d0 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
../../gcc/gimple-walk.c:51
0xba0808 walk_body
../../gcc/tree-nested.c:703
0xba1008 walk_function
../../gcc/tree-nested.c:714
0xba1008 walk_all_functions
../../gcc/tree-nested.c:779
0xba4b60 lower_nested_functions(tree_node*)
../../gcc/tree-nested.c:3435
0x7b0383 cgraph_node::analyze()
../../gcc/cgraphunit.c:673
0x7b2e57 analyze_functions
../../gcc/cgraphunit.c:1126
0x7b3782 symbol_table::finalize_compilation_unit()
../../gcc/cgraphunit.c:2833
