t12.vhd

Workshop vhdl code from Esperan

--
-- This file tests the support for Array of arrays (more than two dimensions)
--
entity TEST is
	port(	A,B,C,D : in  bit;
		Z	: out bit);
end TEST;
architecture T12 of TEST is 
	type NIBBLE is array (3 downto 0) of bit;
	type T_A_OF_A is array (0 to 7) of NIBBLE;
	type T_A_OF_A_OF_A is array (0 to 3) of T_A_OF_A; 
	signal MY_ARRAY_A, MY_ARRAY_B : T_A_OF_A_OF_A;
begin 
	MY_ARRAY_B(0)(0)(0) <= A;
	MY_ARRAY_B(0)(0)(1) <= B;
	MY_ARRAY_B(0)(0)(2) <= C;
	MY_ARRAY_B(0)(0)(3) <= D;
	MY_ARRAY_A <= MY_ARRAY_B;
	Z <= MY_ARRAY_A(0)(0)(0);
end T12;