aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/synth/fsm01/fsm_7s.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/synth/fsm01/fsm_7s.vhdl')
-rw-r--r--testsuite/synth/fsm01/fsm_7s.vhdl58
1 files changed, 58 insertions, 0 deletions
diff --git a/testsuite/synth/fsm01/fsm_7s.vhdl b/testsuite/synth/fsm01/fsm_7s.vhdl
new file mode 100644
index 000000000..fb65410d8
--- /dev/null
+++ b/testsuite/synth/fsm01/fsm_7s.vhdl
@@ -0,0 +1,58 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity fsm_7s is
+ port (clk : std_logic;
+ rst : std_logic;
+ d : std_logic;
+ done : out std_logic);
+end fsm_7s;
+
+architecture behav of fsm_7s is
+ type state_t is (S0_1, S1_0, S2_0, S3_1, S4_0, S5_1, S6_0);
+ signal s : state_t;
+begin
+ process (clk)
+ begin
+ if rising_edge(clk) then
+ if rst = '1' then
+ s <= S0_1;
+ done <= '0';
+ else
+ -- Reset by default
+ s <= S0_1;
+ done <= '0';
+ case s is
+ when S0_1 =>
+ if d = '1' then
+ s <= S1_0;
+ end if;
+ when S1_0 =>
+ if d = '0' then
+ s <= S2_0;
+ end if;
+ when S2_0 =>
+ if d = '0' then
+ s <= S3_1;
+ end if;
+ when S3_1 =>
+ if d = '1' then
+ s <= S4_0;
+ end if;
+ when S4_0 =>
+ if d = '0' then
+ s <= S5_1;
+ end if;
+ when S5_1 =>
+ if d = '1' then
+ s <= S6_0;
+ end if;
+ when S6_0 =>
+ if d = '0' then
+ done <= '1';
+ end if;
+ end case;
+ end if;
+ end if;
+ end process;
+end behav;