1package body Opt48_Pkg1 is 2 3 function G return Rec is 4 begin 5 return (32, "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"); 6 end G; 7 8 X : Rec := F; 9 Y : Rec := G; 10 Z : Rec := F; 11 12 function Get_Z return Rec is 13 begin 14 return Z; 15 end; 16 17end Opt48_Pkg1; 18