testsuite/gna/issue238/repro1.vhdl


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

ENTITY repro1 IS
  TYPE foo_t IS RECORD
    bar : bit_vector;
  END RECORD foo_t;
END ENTITY repro1;

ARCHITECTURE bar OF repro1 IS
BEGIN
  process
    variable baz : foo_t(bar(1 DOWNTO 0));
  begin
    wait;
  end process;

END ARCHITECTURE bar;