gcc/testsuite/gnat.dg/predicate2-project-typ-set.ads

   1 ----
   2 with Ada.Containers.Indefinite_Ordered_Maps;
   3
   4 package Predicate2.Project.Typ.Set is
   5
   6    --  The type names must not be case-sensitive
   7
   8    package Set is new Ada.Containers.Indefinite_Ordered_Maps
   9      (Name_Type, Object, "<");
  10
  11    subtype Object is Set.Map;
  12
  13 end Predicate2.Project.Typ.Set;