testsuite/gna/issue646/repro.vhdl


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

entity repro is
end entity;

architecture tb of repro is

  type tb_cfg_t is record
    value : string;
  end record tb_cfg_t;

  constant tb_cfg: tb_cfg_t := ( value => "hello" );
begin
  assert tb_cfg.value > "a";
end tb;