[Bug fortran/84115] [8 Regression] ICE: tree check: expected tree that contains 'decl minimal' structure, have 'indirect_ref' in add_decl_as_local, at fortran/trans-decl.c:256

[dmalcolm at gcc dot gnu.org]

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

David Malcolm <dmalcolm at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2018-01-30
                 CC|                            |dmalcolm at gcc dot gnu.org,
                   |                            |pault at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #2 from David Malcolm <dmalcolm at gcc dot gnu.org> ---
Confirmed.

Appears to have started with r253400.

Happens here:
250       DECL_CONTEXT (decl) = current_function_decl;

within:
245     static void
246     add_decl_as_local (tree decl)
247     {
248       gcc_assert (decl);
249       TREE_USED (decl) = 1;
250       DECL_CONTEXT (decl) = current_function_decl;
251       DECL_CHAIN (decl) = saved_local_decls;
252       saved_local_decls = decl;
253     }

with:
(gdb) call debug_tree (decl)
 <indirect_ref 0x7ffff1a6f060
    type <integer_type 0x7ffff18c1738 integer(kind=8) public DI
        size <integer_cst 0x7ffff18adbe8 constant 64>
        unit-size <integer_cst 0x7ffff18adc00 constant 8>
        align:64 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x7ffff18c1738 precision:64 min <integer_cst 0x7ffff18ade70
-9223372036854775808> max <integer_cst 0x7ffff18ade88 9223372036854775807>
        pointer_to_this <pointer_type 0x7ffff18f5888>>
    used
    arg:0 <parm_decl 0x7ffff1a5a200 _x
        type <pointer_type 0x7ffff18f5888 type <integer_type 0x7ffff18c1738
integer(kind=8)>
            unsigned DI size <integer_cst 0x7ffff18adbe8 64> unit-size
<integer_cst 0x7ffff18adc00 8>
            align:64 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x7ffff18f5888>
        readonly used unsigned DI /tmp/test.f90:1:0 size <integer_cst
0x7ffff18adbe8 64> unit-size <integer_cst 0x7ffff18adc00 8>
        align:64 warn_if_not_align:0 context <function_decl 0x7ffff1a6bf00 s>
arg-type <pointer_type 0x7ffff18f5888>>
    /tmp/test.f90:1:0 start: /tmp/test.f90:1:0 finish: /tmp/test.f90:1:0>