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

-- { dg-excess-errors "no code generated" }

generic
  type Id_T is private;
  type Data_T is private;
package Varsize_Return_Pkg2 is
  type T is private;
  function Get (X : T) return Data_T;
private
  type T is null record;
end Varsize_Return_Pkg2;