summaryrefslogtreecommitdiff
path: root/testsuite/gna/bug08/paren8.vhdl
blob: ee4d7c10c7115a2e30fba1b118f4c8097b1d3108 (plain)
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;