gcc/testsuite/gnat.dg/discr25_pkg.ads

   1 generic
   2
   3   N : Natural;
   4
   5 package Discr25_Pkg is
   6
   7   type T is private;
   8
   9   procedure Proc1 (Set : in out T);
  10
  11 private
  12   type Obj_T (Size_Max : Natural);
  13   type T is access Obj_T;
  14
  15 end Discr25_Pkg;