gcc/testsuite/gnat.dg/lto10_pkg.ads

   1 package Lto10_Pkg is
   2
   3    type U16 is mod 2 ** 16;
   4
   5    type Position is record
   6       X, Y, Z : U16;
   7    end record;
   8    for Position'Size use 48;
   9
  10    type Pixel is record
  11       Pos : Position;
  12    end record;
  13    pragma Pack (Pixel);
  14
  15    Minus_One : Integer := -1;
  16    Pix : Pixel := (Pos => (X => 0, Y => 0, Z => 0));
  17
  18 end Lto10_Pkg;