testsuite/gna/issue1051/repro.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
26
27
28
29

entity repro is
end repro;

architecture behav of repro is
  type msg_t is record
    pfx : string;
    func : string;
    user : string;
  end record;

  procedure report_msg (m : msg_t) is
  begin
    report m.pfx & "." & m.func & ": " & m.user;
  end report_msg;

  procedure fill (pfx : string := "#err#"; usr : string := "none") is
    constant m : msg_t := (pfx, "fill", usr);
  begin
    report_msg (m);
  end fill;
begin
  process
  begin
    fill;
    fill (pfx => "my err");
    wait;
  end process;
end behav;