use WORK.MINE.all;

entity DOT_PRODUCT_CALL is
end DOT_PRODUCT_CALL;

architecture CALL of DOT_PRODUCT_CALL is
  signal A : INTEGER_VECTOR(2 to 8) := (1,3,5,6,4,2,0);
  signal B : INTEGER_VECTOR(24 downto 18) := (1,2,3,4,5,6,7);
  signal C : INTEGER_VECTOR(52 to 55) := (1,3,5,6);
  signal D : integer;
  signal E : integer;
begin
  D <= DOT_PRODUCT(A, B);
  E <= DOT_PRODUCT(A, C);
end CALL;