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