1with System;
2
3package Aggr22 is
4
5   type Rec is record
6     C : Character;
7     I : aliased Integer;
8   end record;
9
10   My_Rec : aliased Rec;
11   pragma Import (Ada, My_Rec);
12   for My_Rec'Address use System'To_Address (16#40086000#);
13
14   procedure Proc;
15
16end Aggr22;
17