entity funny is
port (a : in bit;
y : out bit;
z : out bit);
end entity funny;

architecture test of funny is
begin
process(a)  is
variable b : bit := '1';
begin
y <= b;
b := a;
end process;

z <= not a;

end architecture test;