analyzer: Fix PR analyzer/101980

[official-gcc.git] / gcc / testsuite / gnat.dg / discr48.adb

-- { 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;