testsuite/gna/issue238/var3.vhdl


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

entity var3 is
end;

use work.pkg.all;

architecture behav of var3 is
begin
  process
   variable v1 : rec_4;
   variable v2 : rec_4bis;
  begin
   v2 := v1;
   wait;
  end process;
end behav;