testsuite/gna/bug08/paren5.vhdl


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

entity paren5 is
end paren5;

architecture behav of paren5
is
  procedure a (param : natural) is
  begin
    assert param /= 2;
  end a;
  constant b : natural := 3;
begin
  a(b);
end behav;