testsuite/gna/issue2147/e2.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

entity e2 is end;

architecture a of e2 is
    type bv_acc is access bit_vector;
    function f return bv_acc is
    begin
        return new bit_vector'("01");
    end;

    -- This line causes the crash
    constant c : bit_vector (f'range) := (others => '0');
begin
end;