testsuite/gna/issue1385/ex1.vhdl


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

entity ex1 is
        generic (
        g_use_dsp          : STRING   := "YES"
        );
	attribute use_dsp : string;
	attribute use_dsp of ex1: entity is g_use_dsp;
end entity;

architecture a of ex1 is
begin
  process begin
    report "Hello world" severity note;
    wait;
  end process;
end a;