testsuite/gna/bug08/paren4.vhdl


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

entity paren4 is
end paren4;

architecture behav of paren4
is
  function a (param : natural) return natural is
  begin
    return param + 1;
  end a;
  constant b : natural := 3;
begin
  assert a(b) = 4;
end behav;