aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue828/test1.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/gna/issue828/test1.vhdl')
-rw-r--r--testsuite/gna/issue828/test1.vhdl37
1 files changed, 37 insertions, 0 deletions
diff --git a/testsuite/gna/issue828/test1.vhdl b/testsuite/gna/issue828/test1.vhdl
new file mode 100644
index 000000000..c55de9363
--- /dev/null
+++ b/testsuite/gna/issue828/test1.vhdl
@@ -0,0 +1,37 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity test is
+ port(
+ tx : out std_logic);
+end entity;
+
+architecture tb of test is
+begin
+ process
+
+ procedure transmit(data : std_logic_vector;
+ signal tx : out std_logic) is
+
+ variable norm : std_logic_vector(data'length - 1 downto 0) := data;
+
+ procedure send(value : std_logic) is
+ begin
+ tx <= value;
+ wait for 10 ns;
+ end procedure;
+
+ begin
+ for i in norm'reverse_range loop
+ send(norm(i));
+ report to_string(i);
+ end loop;
+ end procedure;
+
+ begin
+
+ transmit(x"55", tx);
+ wait;
+
+ end process;
+end architecture;