-
-
Notifications
You must be signed in to change notification settings - Fork 77
/
issue239.vhd
43 lines (33 loc) · 857 Bytes
/
issue239.vhd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
entity issue239 is
end entity;
architecture test of issue239 is
shared variable sv : boolean := false;
constant cb : boolean := sv;
signal sb : boolean := sv; -- ok
begin
process
variable var : boolean := false;
variable var2 : boolean := var; -- ok
procedure proc(
constant b : in boolean := var -- error
) is
begin
report boolean'image(b) severity note;
end procedure;
procedure proc2 (
variable b : in boolean := var -- error
) is
begin
report boolean'image(b) severity note;
end procedure;
begin
proc;
var := true;
proc;
wait;
end process;
end architecture;
package package_issue239 is
constant deferred : integer;
procedure proc(a : integer := deferred); -- OK
end package;