gcc/testsuite/gnat.dg/prot9_pkg2.ads

   1 with Ada.Containers.Doubly_Linked_Lists;
   2
   3 package Prot9_Pkg2 is
   4
   5    type Prot_type is limited private;
   6
   7 private
   8
   9    package My_Lists is new Ada.Containers.Doubly_Linked_Lists (Integer);
  10
  11    protected type Prot_type is
  12    private
  13      L : My_Lists.List;
  14    end Prot_type;
  15
  16 end Prot9_Pkg2;