testsuite/gna/bug08/paren8.vhdl


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

entity paren8 is
end paren8;

architecture behav of paren8
is
begin
  process
    function a return string is
    begin
      return "hello";
    end a;
    constant b : natural := 5;
  begin
    assert a(b) = 'o';
    wait;
  end process;
end behav;