gcc/testsuite/gnat.dg/opt48_pkg1.adb

   1 package 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
  17 end Opt48_Pkg1;