testsuite/gna/bug059/tb.vhdl


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

entity tb is
end;

architecture behav of tb is
begin
  b : block
    generic (c : natural);
    generic map (c => c);
  begin
    assert true;
  end block b;
end behav;