gcc/testsuite/gnat.dg/specs/varsize_return_pkg2.ads

   1 -- { dg-excess-errors "no code generated" }
   2
   3 generic
   4   type Id_T is private;
   5   type Data_T is private;
   6 package Varsize_Return_Pkg2 is
   7   type T is private;
   8   function Get (X : T) return Data_T;
   9 private
  10   type T is null record;
  11 end Varsize_Return_Pkg2;