summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/prot2_pkg2.ads
blob: cdd436b8afb561d1a9a1f1529bbc680bac1087b0 (plain)
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;