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