testsuite/gna/ticket37/dispgen.vhdl


1
2
3
4
5
6
7
8

entity dispgen is
  generic (str : string := "init");
end dispgen;

architecture behav of dispgen is
begin
  assert false report "str: " & str severity note;
end behav;