gcc/testsuite/gnat.dg/prot9_pkg2.ads


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

with Ada.Containers.Doubly_Linked_Lists;

package Prot9_Pkg2 is

   type Prot_type is limited private;

private

   package My_Lists is new Ada.Containers.Doubly_Linked_Lists (Integer);

   protected type Prot_type is
   private
     L : My_Lists.List;
   end Prot_type;

end Prot9_Pkg2;