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