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