blob: 5af3359a488751ea127a603a244a3ec077624ac8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
package physical is
type FREQ is range 0 to INTEGER'high units
Hz;
kHz = 1000 Hz;
MHz = 1000 kHz;
GHz = 1000 MHz;
-- THz = 1000 GHz;
end units;
end package;
entity tb is
end;
use work.physical.all;
architecture test of tb is
constant CLOCK_FREQ : FREQ := 100.0 MHz;
procedure p (a : freq := 1.0 Mhz) is
begin
end p;
begin
p (clock_freq);
-- empty
end architecture;
|
