testsuite/gna/bug19195/pkg.vhd


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

library IEEE; 
use IEEE.std_logic_1164.all; 
package test_pkg is 
  type a is record 
    b : std_logic_vector(3 downto 0); 
  end record a; 
  type b is record 
    a1 : a; 
  end record b; 

  signal c : b; 
  alias c0 : a is c.a1; 
end package test_pkg;