ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/opt48_pkg1.adb

18 lines
265 B
Ada

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;