gcc/testsuite/gnat.dg/specs/lto3_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 Lto3_Pkg2 is
  type T is private;
  function Get (X : T) return Data_T;
private
  type T is null record;
end Lto3_Pkg2;