gcc/testsuite/gnat.dg/opt48_pkg1.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package body Opt48_Pkg1 is

   function G return Rec is
   begin
      return (32, "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA");
   end G;

   X : Rec := F;
   Y : Rec := G;
   Z : Rec := F;

   function Get_Z return Rec is
   begin
      return Z;
   end;

end Opt48_Pkg1;