1entity paren11 is
2end paren11;
3
4architecture behav of paren11
5is
6begin
7  process
8    type string_acc is access string;
9    variable hel : string_acc := new string'("hello");
10    impure function a return string_acc is
11    begin
12      return hel;
13    end a;
14    constant b : natural := 2;
15  begin
16    assert a(b) = 'e';
17    wait;
18  end process;
19end behav;
20