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

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,
                   |                            |tkoenig at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from David Malcolm <dmalcolm at gcc dot gnu.org> ---
Confirmed.  Appears to have started with r247755.

Fails on this assertion:

2706          gcc_assert (seen_error ());

here in gimplify.c:

2701      if (VAR_P (decl)
2702          && !DECL_SEEN_IN_BIND_EXPR_P (decl)
2703          && !TREE_STATIC (decl) && !DECL_EXTERNAL (decl)
2704          && decl_function_context (decl) == current_function_decl)
2705        {
2706          gcc_assert (seen_error ());
2707          return GS_ERROR;
2708        }

(gdb) call debug_tree (decl)
 <var_decl 0x7ffff7ffbc60 __var_1_matmul
    type <array_type 0x7ffff1a73000
        type <real_type 0x7ffff18c8348 real(kind=4) SF
            size <integer_cst 0x7ffff18ade28 constant 32>
            unit-size <integer_cst 0x7ffff18ade40 constant 4>
            align:32 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x7ffff18c8348 precision:32
            pointer_to_this <pointer_type 0x7ffff18c8888> reference_to_this
<reference_type 0x7ffff1a730a8>>
        type_2 TI
        size <integer_cst 0x7ffff18adc30 constant 128>
        unit-size <integer_cst 0x7ffff18adc48 constant 16>
        align:32 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x7ffff1a73000
        domain <integer_type 0x7ffff1a6d7e0 type <integer_type 0x7ffff18c1738
integer(kind=8)>
            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
0x7ffff1a6d7e0 precision:64 min <integer_cst 0x7ffff18c9288 0> max <integer_cst
0x7ffff1a618b8 3>>
        pointer_to_this <pointer_type 0x7ffff1a73540>>
    addressable used decl_0 TI /tmp/test.f90:1:0 size <integer_cst
0x7ffff18adc30 128> unit-size <integer_cst 0x7ffff18adc48 16>
    align:32 warn_if_not_align:0 context <function_decl 0x7ffff1a6bf00 p>>

Reply via email to