testsuite/gna/ticket37/genchar.vhdl


1
2
3
4
5
6
7
8

entity genchar is
  generic (val : character := CR);
end genchar;

architecture behav of genchar is
begin
  assert val = Ack or val = 'A' or val = 'z' severity failure;
end behav;