1 files changed, 26 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/sso2.ads b/gcc/testsuite/gnat.dg/specs/sso2.ads
new file mode 100644
index 00000000000..328ca6461af
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/sso2.ads
@@ -0,0 +1,26 @@
+-- { dg-do compile }
+-- { dg-options "-gnatws" }
+
+with System;
+
+package SSO2 is
+
+  I : Integer;
+
+  type Rec1 is record
+    A : System.Address;
+  end record;
+  for Rec1'Bit_Order use System.High_Order_First;
+  for Rec1'Scalar_Storage_Order use System.High_Order_First;
+
+  R1 : Rec1 := (A => I'Address);
+
+  type Rec2 is record
+    A : System.Address;
+  end record;
+  for Rec2'Bit_Order use System.Low_Order_First;
+  for Rec2'Scalar_Storage_Order use System.Low_Order_First;
+
+  R2 : Rec2 := (A => I'Address);
+
+end SSO2;