summaryrefslogtreecommitdiff
path: root/testsuite/gna/bug23165/mwe_failing/mwe.vhd
blob: d3241ac03ea5aabbb55c12e26fbe44bb9cf809ef (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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;

entity mwe is
end mwe;

architecture lulz of mwe is

constant cnt_len	: integer := 2;
constant cnt_stages	: integer := 2;

type ctl_sig is array (natural range <>) of std_logic_vector(cnt_len-1 downto 0);
signal ctl_cnt 	: ctl_sig(0 to cnt_stages-1);

signal clk	: std_logic := '0';

begin
	clk <= not clk after 50 ns;

	controller : entity work.counter
	generic map(
		width => cnt_len
	)
	port map(
		clk => clk,
		q => ctl_cnt(0)
	);

	ctl_cnt_delay : process
	begin
		wait until rising_edge(clk);
		for i in 0 to cnt_stages-2 loop
			-- uncomment following line to see that the port map assignment works
			--  and that this line just "overwrites" it..
			ctl_cnt(i+1) <= ctl_cnt(i);
		end loop;
	end process;

end lulz;