blob: 677f6ec67b126c0952f3b7c98ef86abddcd5f848 [file] [log] [blame]
-- { dg-do compile }
with Discr48_Pkg; use Discr48_Pkg;
function Discr48 return Rec_Access is
C : constant Rec := (Count => 1, Seps => (1 .. 0 => Null_XString));
begin
return new Rec'(C);
end;