2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / discr25_pkg.ads
blobc09634d8c5f7185b8656f92e972ead6ab08d2d98
1 generic
3 N : Natural;
5 package Discr25_Pkg is
7 type T is private;
9 procedure Proc1 (Set : in out T);
11 private
12 type Obj_T (Size_Max : Natural);
13 type T is access Obj_T;
15 end Discr25_Pkg;