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