t15.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for Multi-dimensional arrays (more than two dimensions).
--
entity TEST is
	port(	A,B,C,D : in  bit;
		Z	: out bit);
end TEST;
architecture T15 of TEST is 
	type THREE_DIM_A is array (0 to 7, 0 to 1, 3 downto 0) of bit;
	signal MY_ARRAY_A, MY_ARRAY_B : THREE_DIM_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 T15;