1entity repro2 is
2end repro2;
3
4architecture behav of repro2 is
5  type msg_t is record
6    pfx : string;
7    func : string;
8    user : string;
9  end record;
10
11  procedure report_msg (m : msg_t) is
12  begin
13    report m.pfx & "." & m.func & ": " & m.user;
14  end report_msg;
15
16  procedure fill (pfx : string := "#err#"; usr : string := "none") is
17  begin
18    report_msg (m => (pfx, "fill", usr));
19  end fill;
20begin
21  process
22  begin
23    fill;
24    fill (pfx => "my err");
25    wait;
26  end process;
27end behav;
28
29