testsuite/gna/issue1379/bar2.vhdl


1
2
3
4
5
6
7
8
9
10
11

entity bar2 is
end bar2;

architecture behav of bar2 is
  function f(v : natural) return natural is
  begin
    return 1;
  end f;
begin
  assert f(v => open) = 1;
end behav;