gcc/testsuite/gnat.dg/loop_optimization23_pkg.ads

   1 -- PR tree-optimization/71083
   2 package Loop_Optimization23_Pkg is
   3   type Nibble is mod 2**4;
   4   type Int24  is mod 2**24;
   5   type StructA is record
   6     a : Nibble;
   7     b : Int24;
   8   end record;
   9   pragma Pack(StructA);
  10   type StructB is record
  11     a : Nibble;
  12     b : StructA;
  13   end record;
  14   pragma Pack(StructB);
  15   type ArrayOfStructB is array(0..100) of StructB;
  16   procedure Foo (X : in out ArrayOfStructB);
  17 end Loop_Optimization23_Pkg;