summaryrefslogtreecommitdiff
path: root/testsuite/gna/bug08/paren1.vhdl
blob: b6adba364b10a9d72691ccc7db060b0ba7c5f6f4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
entity paren1 is
end paren1;

architecture behav of paren1
is
  signal a : bit_vector (1 to 4);
begin
  process
  begin
    for b in a'range loop
      assert a(b) = '0';
    end loop;
    wait;
  end process;
end behav;