diff options
Diffstat (limited to 'testsuite/gna/issue332/repro_rec.vhdl')
-rw-r--r-- | testsuite/gna/issue332/repro_rec.vhdl | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/testsuite/gna/issue332/repro_rec.vhdl b/testsuite/gna/issue332/repro_rec.vhdl new file mode 100644 index 000000000..3f04d3b92 --- /dev/null +++ b/testsuite/gna/issue332/repro_rec.vhdl @@ -0,0 +1,33 @@ +entity repro_rec is +end; + +architecture behav of repro_rec is + type my_rec is record + s : natural; + b : bit_vector; + c : bit_vector; + end record; + + subtype my_rec1 is my_rec (c (2 to 3)); + + signal r : my_rec1 (b (1 to 3)); + signal a : bit_vector (0 to 1); +begin + process + begin + r.s <= 1; + r.b <= "010"; + wait for 1 ns; + r.b <= "101"; + wait; + end process; + + blk: block + port (a1 : bit_vector); + port map (a1 => a); + begin + end block; + +end; + + |