testsuite/gna/bug08/paren9.vhdl


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

entity paren9 is
end paren9;

architecture behav of paren9
is
begin
  process
    function a return string is
    begin
      return "hello";
    end a;
    subtype b is natural range 1 to 2;
  begin
    assert a(b) = "he";
    wait;
  end process;
end behav;