Project

General

Profile

Statistics
| Branch: | Tag: | Revision:

lustrec-tests / vhdl_json / vhdl_files / 2-exportOK / ghdl / ghdl / testsuite / gna / ticket94 / tb4.vhd @ 3fd18385

History | View | Annotate | Download (586 Bytes)

1

    
2
library ieee;
3
use ieee.std_logic_1164.all;
4
library alib;
5

    
6
entity tb4 is
7
end;
8

    
9
architecture arch of tb4 is
10

    
11
    signal a, b :  std_logic := '0';
12
    component acomp is
13
        port (x: in std_ulogic; y: out std_ulogic);
14
    end component;
15

    
16
begin
17
    ainst: acomp
18
        port map (a, b);
19

    
20
    process is
21
    begin
22
        a <= '0';
23
        wait for 1 ns;
24
        assert b = '0' report "component is missing" severity failure;
25
        a <= '1';
26
        wait for 1 ns;
27
        assert b = '1' report "component is missing" severity failure;
28
        wait;
29
  end process;
30

    
31
end architecture;