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>>