aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue45/test2.vhdl
blob: 6e8c2451a5c65f34dd26dbcb1f931884099a438c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
library ieee;
use ieee.std_logic_1164.all;

entity psl_test2_endpoint is
end entity psl_test2_endpoint;

architecture test of psl_test2_endpoint is
  signal s_clk   : std_logic := '0';
  signal req, grant : std_logic;
begin

  grant <= '0';
  
  process
  begin
    for i in 1 to 10 loop
      s_clk   <= not s_clk;
      if i = 5 then
        req <= '1';
      end if;
      wait for 10 ns;
    end loop;
    wait;
  end process;

  -- psl endpoint e_test is {req; not(grant)} @rising_edge (s_clk);
  
  process
  begin
    wait until e_test;
    report "e_test hit" severity error;
    wait;
  end process;
end architecture test;