1with Ada.Containers; use Ada.Containers;
2with Ada.Containers.Hashed_Maps;
3with Ada.Containers.Vectors;
4
5package body Lto21_Pkg2 is
6
7   pragma Suppress (Tampering_Check);
8
9   procedure Proc is
10
11      function Hash (Syd : Natural) return Hash_Type is (Hash_Type'Mod (Syd));
12
13      package Vect2 is new Vectors (Positive, Natural);
14
15      package Maps is
16        new Hashed_Maps (Natural, Vect2.Vector, Hash, "=", Vect2."=");
17
18      procedure Nested (M : Maps.Map) is
19         use Maps;
20         procedure Inner (Position : Cursor) is null;
21      begin
22         Iterate (M, Inner'Access);
23      end;
24
25      M : Maps.Map;
26   begin
27      Nested (M);
28   end;
29
30end Lto21_Pkg2;
31