1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/opt85.ads b/gcc/testsuite/gnat.dg/opt85.ads
new file mode 100644
index 00000000000..00b5c284da8
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/opt85.ads
@@ -0,0 +1,27 @@
+with Ada.Finalization;
+with Interfaces;
+with System;
+
+package Opt85 is
+
+   type Data_Type is record
+      Value : Interfaces.Integer_16;
+   end record;
+   for Data_Type use record
+      Value at 0 range 0 .. 15;
+   end record;
+   for Data_Type'Alignment use 1;
+   for Data_Type'Size use 2 * System.Storage_Unit;
+   for Data_Type'Bit_Order use System.High_Order_First;
+   for Data_Type'Scalar_Storage_Order use System.High_Order_First;
+
+   type Header_Type is array (1 .. 1) of Boolean;
+
+   type Record_Type is new Ada.Finalization.Controlled with record
+      Header : Header_Type;
+      Data   : Data_Type;
+   end record;
+
+   function Create (Value : Integer) return Record_Type;
+
+end Opt85;