t14.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for Multi-dimensional arrays (two dimensions).
--
entity TEST is
	port(	A,B,C,D : in  bit;
		Z	: out bit);
end TEST;
architecture T14 of TEST is 
	type TWO_DIM_A is array (0 to 7, 3 downto 0) of bit;
	signal MY_ARRAY_A, MY_ARRAY_B : TWO_DIM_A;
begin
	MY_ARRAY_B(0,0) <= A;
	MY_ARRAY_B(0,1) <= B;
	MY_ARRAY_B(0,2) <= C;
	MY_ARRAY_B(0,3) <= D; 
	MY_ARRAY_A <= MY_ARRAY_B;
	Z <= MY_ARRAY_A(0,0);
end T14;