Parity Checker :    19


architecture iterative of parity is

begin  -- iterative
  loopy : process (a)
    variable even : std_ulogic;
  begin  -- process loopy
    even     := '1';   -- for active high even parity
    for i in a'range loop  -- a has range of 7 downto 0
      if a(i) = '1' then
        even := not even;
      end if;
    end loop;  -- i
    y <= even;
  end process loopy;
end iterative;