[Bug fortran/59706] [4.9 Regression] ICE with do concurrent and internal subprogram

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59706

--- Comment #2 from janus at gcc dot gnu.org ---
The same ICE occurs when putting it into the main program:

 integer i
 do concurrent (i=1:2)
 end do
contains
 subroutine f
 end 
end


Backtrace:

internal compiler error: Segmentation fault
  integer i
 ^
0x940f4f crash_signal
    /home/jweil/gcc49/trunk/gcc/toplev.c:336
0x99df9a get_frame_type
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:234
0x99df9a get_chain_decl
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:342
0x99efdc get_chain_decl
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:851
0x99efdc get_nonlocal_debug_decl
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:856
0x99f218 convert_nonlocal_reference_op
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:934
0xaf84ab walk_tree_1(tree_node**, tree_node* (*)(tree_node**, int*, void*),
void*, pointer_set_t*, tree_node* (*)(tree_node**, int*, tree_node*
(*)(tree_node**, int*, void*), void*, pointer_set_t*))
    /home/jweil/gcc49/trunk/gcc/tree.c:10925
0x7c9d55 walk_gimple_op(gimple_statement_base*, tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:267
0x7ca4c4 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:535
0x7ca678 walk_gimple_seq_mod(gimple_statement_base**, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:58
0x7ca572 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:545
0x7ca678 walk_gimple_seq_mod(gimple_statement_base**, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:58
0x7ca572 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:545
0x7ca678 walk_gimple_seq_mod(gimple_statement_base**, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:58
0x7ca572 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:545
0x7ca678 walk_gimple_seq_mod(gimple_statement_base**, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
    /home/jweil/gcc49/trunk/gcc/gimple-walk.c:58
0x99e0a1 walk_body
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:603
0x99f8b8 walk_function
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:614
0x99f8b8 walk_all_functions
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:679
0x9a098f lower_nested_functions(tree_node*)
    /home/jweil/gcc49/trunk/gcc/tree-nested.c:2675