1package body Pack20 is
2
3   procedure Proc (A : Rec) is
4      Local : Rec := A;
5   begin
6      Modify (Local.Fixed);
7   end;
8
9end Pack20;
10