testsuite/gna/issue646/repro3.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

entity repro3 is
end entity;

architecture tb of repro3 is

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

  function get_msg return string is
  begin
    return "goodbye";
  end get_msg;

  function init return tb_cfg_t is
  begin
    return (value => get_msg);
  end init;

  constant tb_cfg: tb_cfg_t := init;
begin
  assert tb_cfg.value > "a";
end tb;