diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-07-25 12:24:12 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-07-25 13:27:50 +0200 |
commit | 5f3c9498dc9ad737b398109edf53b4c4a7344696 (patch) | |
tree | a4a1d0236c1396d4e76ce96104c64b2f1835f3e0 /testsuite/gna/bug0117/repro8.vhdl | |
parent | b69f9957ce04f6d796ef965f58fa3a1040b31f3b (diff) | |
download | ghdl-5f3c9498dc9ad737b398109edf53b4c4a7344696.tar.gz ghdl-5f3c9498dc9ad737b398109edf53b4c4a7344696.tar.bz2 ghdl-5f3c9498dc9ad737b398109edf53b4c4a7344696.zip |
testsuite/gna: add a test for previous commit.
Diffstat (limited to 'testsuite/gna/bug0117/repro8.vhdl')
-rw-r--r-- | testsuite/gna/bug0117/repro8.vhdl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/gna/bug0117/repro8.vhdl b/testsuite/gna/bug0117/repro8.vhdl new file mode 100644 index 000000000..ec21f3efd --- /dev/null +++ b/testsuite/gna/bug0117/repro8.vhdl @@ -0,0 +1,19 @@ +entity repro8 is +end repro8; + +architecture behav of repro8 is + procedure assign (a, b : out bit_vector; val : bit_vector) is + begin + (a, b) := val; + end assign; +begin + process + variable a: bit_vector(7 downto 0); + variable b: bit_vector(3 downto 0); + begin + assign (a, b, x"012"); + assert a = x"01"; + assert b = x"2"; + wait; + end process; +end behav; |