gcc/testsuite/gnat.dg/aggr22.ads

   1 with System;
   2
   3 package 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
  16 end Aggr22;