gcc/testsuite/gnat.dg/assign_from_packed_pixels.ads

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