entity bit_rtl_reg_clk is
   port ( 
	  pin  : bit_vector;
	  cntl : bit;
	  clk  : bit;
	  pout : out bit_vector
   );
end bit_rtl_reg_clk;

architecture func of bit_rtl_reg_clk is
begin
   process
   begin
	  wait until clk'event and clk ='1';
	  if (cntl = '1') then
		 pout <= pin ;
      end if;
   end process;
end func;