1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/synth/issue1324/st.vhdl b/testsuite/synth/issue1324/st.vhdl
new file mode 100644
index 000000000..640850e2b
--- /dev/null
+++ b/testsuite/synth/issue1324/st.vhdl
@@ -0,0 +1,18 @@
+entity st is
+end;
+
+architecture behav of st is
+  shared variable cnt : natural := 2;
+
+  impure function f return natural is
+  begin
+    cnt := cnt + 1;
+    return cnt;
+  end f;
+
+  signal s1, s2, s3 : bit_vector (1 to f) := (others => '0');
+begin
+  assert false report "s1'length=" & natural'image (s1'length);
+  assert false report "s2'length=" & natural'image (s2'length);
+  assert false report "s3'length=" & natural'image (s3'length);
+end behav;