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