testsuite/gna/bug0100/usrattr.vhdl


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

entity usrattr is
end usrattr;

architecture behav of usrattr is
  type rec is record
      data : natural;
  end record;
  signal myrec : rec;
  signal s : boolean;
begin
  s <= myrec.data'attr;
end behav;