gcc/testsuite/gnat.dg/prot2_pkg2.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

generic

   type T is private;

package Prot2_Pkg2 is

   type Id is private;

   procedure Create (B : out Id);
   procedure Delete (B : in out Id);

private

   type Rec;
   type Id is access Rec;

end Prot2_Pkg2;