testsuite/synth/iassoc01/iassoc02.vhdl

   1 use work.pkg.all;
   2
   3 entity riassoc02 is
   4   port (v : natural;
   5         res : out nat_rec);
   6 end riassoc02;
   7
   8 architecture behav of riassoc02 is
   9 begin
  10   res.a <= v + 1;
  11   res.b <= v + 2;
  12 end behav;
  13
  14 entity iassoc02 is
  15   port (v : natural;
  16         a, b : out natural);
  17 end iassoc02;
  18
  19 architecture behav of iassoc02 is
  20 begin
  21   inst : entity work.riassoc02
  22     port map (v => v, res.a => a, res.b => b);
  23 end behav;