diff options
Diffstat (limited to 'testsuite/synth/issue1064/testrec.vhdl')
-rw-r--r-- | testsuite/synth/issue1064/testrec.vhdl | 29 |
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; |