gcc/testsuite/gnat.dg/discr48.adb

   1 -- { dg-do compile }
   2
   3 with Discr48_Pkg; use Discr48_Pkg;
   4
   5 function Discr48 return Rec_Access is
   6    C : constant Rec := (Count => 1, Seps => (1 .. 0 => Null_XString));
   7 begin
   8    return new Rec'(C);
   9 end;