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


1
2
3
4
5
6
7
8
9
10
11

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