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