1 files changed, 29 insertions, 0 deletions
diff --git a/testsuite/synth/issue1064/testrec.vhdl b/testsuite/synth/issue1064/testrec.vhdl
new file mode 100644
index 000000000..4ef883131
--- /dev/null
+++ b/testsuite/synth/issue1064/testrec.vhdl
@@ -0,0 +1,29 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity testrec is
+  port (i : std_ulogic;
+        o : out std_ulogic);
+end entity testrec;
+
+architecture behaviour of testrec is
+  type rec is record
+    v : std_ulogic;
+    t : std_ulogic;
+  end record;
+
+  procedure zot(e: inout rec) is
+  begin
+    e.v := '0';
+  end;
+
+begin
+  execute1_1: process(i)
+    variable v : rec;
+  begin
+    v.v := i;
+    v.t := i;
+    zot(v);
+    o <= v.v;
+  end process;
+end architecture behaviour;