testsuite/gna/ticket37/genbool.vhdl


1
2
3
4
5
6
7
8

entity genbool is
  generic (val : boolean := False);
end genbool;

architecture behav of genbool is
begin
  assert val severity failure;
end behav;