summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/lto10_pkg.ads
blob: 9be6a78c9c616586554c52c94a4e22387473f5cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
package Lto10_Pkg is

   type U16 is mod 2 ** 16;

   type Position is record
      X, Y, Z : U16;
   end record;
   for Position'Size use 48;

   type Pixel is record
      Pos : Position;
   end record;
   pragma Pack (Pixel);

   Minus_One : Integer := -1;
   Pix : Pixel := (Pos => (X => 0, Y => 0, Z => 0));

end Lto10_Pkg;