1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/gna/issue692/repro_proc.vhdl b/testsuite/gna/issue692/repro_proc.vhdl
new file mode 100644
index 000000000..29b11cad9
--- /dev/null
+++ b/testsuite/gna/issue692/repro_proc.vhdl
@@ -0,0 +1,19 @@
+entity repro is
+end;
+
+architecture behav of repro
+is
+   procedure test (l : natural) is
+     variable v : bit_vector (l - 1 downto 0);
+   begin
+     assert v (l / 2) = '0';
+     assert v (0) = '0';
+     assert v (l - 1) = '0';
+   end test;
+begin
+   process
+   begin
+     test (128 * 1024);
+     wait;
+   end process;
+end behav;