1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/assign_from_packed_pixels.ads b/gcc/testsuite/gnat.dg/assign_from_packed_pixels.ads
new file mode 100644
index 000000000..66ade8a84
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/assign_from_packed_pixels.ads
@@ -0,0 +1,18 @@
+
+package Assign_From_Packed_Pixels 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;