[Bug fortran/66244] [4.9/5/6/7 Regression] ICE on assigning a value to a pointer variable

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #4 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Compiling slightly modified example from comment 0 :


$ cat z4.f90
program p
   integer, target :: a(3)[*]
   integer, pointer :: z => a(3)
   z = 0
   print *, z
end


$ gfortran-7-20160703 -fcoarray=single z4.f90
f951: internal compiler error: in get, at cgraph.h:395
0xefcbd7 symtab_node::get(tree_node const*)
        ../../gcc/cgraph.h:392
0xefcbd7 varpool_node::get(tree_node const*)
        ../../gcc/cgraph.h:2480
0xefcbd7 varpool_node::get_create(tree_node*)
        ../../gcc/varpool.c:144
0x830ca7 record_reference
        ../../gcc/cgraphbuild.c:82
0xebe152 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
        ../../gcc/tree.c:11655
0x831f34 record_references_in_initializer(tree_node*, bool)
        ../../gcc/cgraphbuild.c:404
0xefdbe7 varpool_node::analyze()
        ../../gcc/varpool.c:533
0x8381aa analyze_functions
        ../../gcc/cgraphunit.c:1133
0x839128 symbol_table::finalize_compilation_unit()
        ../../gcc/cgraphunit.c:2543



$ gfortran-7-20160703 -fcoarray=lib z4.f90
z4.f90:6:0:

 end

internal compiler error: output_operand: invalid expression as operand
0x917a83 output_operand_lossage(char const*, ...)
        ../../gcc/final.c:3413
0x918365 output_addr_const(_IO_FILE*, rtx_def*)
        ../../gcc/final.c:4002
0x918305 output_addr_const(_IO_FILE*, rtx_def*)
        ../../gcc/final.c:3962
0xee864e assemble_integer_with_op(char const*, rtx_def*)
        ../../gcc/varasm.c:2679
0xee86ad default_assemble_integer(rtx_def*, unsigned int, int)
        ../../gcc/varasm.c:2695
0xee871e assemble_integer(rtx_def*, unsigned int, unsigned int, int)
        ../../gcc/varasm.c:2711
0xeee59a output_constant
        ../../gcc/varasm.c:4760
0xef0e64 output_constant
        ../../gcc/varasm.c:4664
0xef0e64 assemble_variable_contents
        ../../gcc/varasm.c:2073
0xef8619 assemble_variable(tree_node*, int, int, int)
        ../../gcc/varasm.c:2249
0xefde08 varpool_node::assemble_decl()
        ../../gcc/varpool.c:589
0x8363c3 output_in_order
        ../../gcc/cgraphunit.c:2232
0x83674d symbol_table::compile()
        ../../gcc/cgraphunit.c:2469
0x8391a2 symbol_table::compile()
        ../../gcc/cgraphunit.c:2539
0x8391a2 symbol_table::finalize_compilation_unit()
        ../../gcc/cgraphunit.c:2565