testsuite/gna/issue238/var2.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

entity var2 is
end;

use work.pkg.all;

architecture behav of var2 is
begin
  process
   variable v1, v2 : rec_4;
  begin
   v2 := v1;
   wait;
  end process;
end behav;