testsuite/synth/oper01/tb_snum02.vhdl

   1 entity tb_snum02 is
   2 end tb_snum02;
   3
   4 library ieee;
   5 use ieee.std_logic_1164.all;
   6
   7 architecture behav of tb_snum02 is
   8   signal r : boolean;
   9 begin
  10   cmp02_1: entity work.snum02
  11     port map (r);
  12
  13   process
  14   begin
  15     wait for 1 ns;
  16     assert r severity failure;
  17
  18     wait;
  19   end process;
  20 end behav;