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


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

----
with Ada.Containers.Indefinite_Ordered_Maps;

package Predicate2.Project.Typ.Set is

   --  The type names must not be case-sensitive

   package Set is new Ada.Containers.Indefinite_Ordered_Maps
     (Name_Type, Object, "<");

   subtype Object is Set.Map;

end Predicate2.Project.Typ.Set;