gcc/testsuite/gnat.dg/opt101_pkg.ads

   1 package Opt101_Pkg is
   2
   3   type Int is mod 16;
   4
   5   type Rec is record
   6     S : Short_Integer;
   7     I1, I2 : Int;
   8   end record;
   9   pragma Pack (Rec);
  10   for Rec'Alignment use 4;
  11
  12   type Cont1 is record
  13     R : Rec;
  14     I1, I2 : Int;
  15   end record;
  16   pragma Pack (Cont1);
  17
  18   type Cont2 is record
  19     I1 : Int;
  20     R  : Rec;
  21     I2 : Int;
  22   end record;
  23   pragma Pack (Cont2);
  24   pragma No_Component_Reordering (Cont2);
  25
  26 end Opt101_Pkg;