testsuite/gna/issue1528/ent4.vhdl


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

use work.attrs_pkg.all;

entity ent4 is
  generic (name : string := "ent4 name");
  attribute ent_name of ent4: entity is name;
end entity;

architecture rtl of ent4 is
begin
  process
  begin
    report "I am: " & ent4'ent_name;
    wait;
  end process;
end rtl;