t19.vhd

Workshop vhdl code from Esperan

-- 
-- This file tests support for the use of concatenation with arrays.
--
entity TEST is
	port(	A,B,C,D : in  bit;
	     	Z 	: out bit_vector(3 downto 0));
end TEST;
architecture T19 of TEST is 
	subtype NIBBLE is bit_vector(3 downto 0);
	type T_A_OF_A is array (0 to 7) of NIBBLE; 
	signal MY_ARRAY_A: T_A_OF_A;
begin 
	MY_ARRAY_A(0) <= A&B&C&D;
	Z <= MY_ARRAY_A(0);  
end T19;