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;