blob: 5ec3e93a68883d3dcc11ff6bb05a0d124ae164de [file] [log] [blame]
package body Pack20 is
procedure Proc (A : Rec) is
Local : Rec := A;
begin
Modify (Local.Fixed);
end;
end Pack20;