RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / assign_from_packed_pixels.ads
blob66ade8a84c40b957756a914069fff8b1be03c703
2 package Assign_From_Packed_Pixels is
4 type U16 is mod 2 ** 16;
6 type Position is record
7 X, Y, Z : U16;
8 end record;
9 for Position'Size use 48;
11 type Pixel is record
12 Pos : Position;
13 end record;
14 pragma Pack (Pixel);
16 Minus_One : Integer := -1;
17 Pix : Pixel := (Pos => (X => 0, Y => 0, Z => 0));
18 end;