gcc/testsuite/gnat.dg/prot2_pkg2.ads

   1 generic
   2
   3    type T is private;
   4
   5 package Prot2_Pkg2 is
   6
   7    type Id is private;
   8
   9    procedure Create (B : out Id);
  10    procedure Delete (B : in out Id);
  11
  12 private
  13
  14    type Rec;
  15    type Id is access Rec;
  16
  17 end Prot2_Pkg2;