diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/sso/init11.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/sso/init11.ads | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/sso/init11.ads b/gcc/testsuite/gnat.dg/sso/init11.ads new file mode 100644 index 00000000000..a3ca4117a2f --- /dev/null +++ b/gcc/testsuite/gnat.dg/sso/init11.ads @@ -0,0 +1,34 @@ +with System; + +package Init11 is + + type My_Integer is new Integer; + for My_Integer'Alignment use 1; + + type Arr1 is array (1 .. 3) of My_Integer; + for Arr1'Scalar_Storage_Order use System.Low_Order_First; + + type R1 is record + I : My_Integer; + A : Arr1; + end record; + for R1'Bit_Order use System.Low_Order_First; + for R1'Scalar_Storage_Order use System.Low_Order_First; + + type Arr2 is array (1 .. 3) of My_Integer; + for Arr2'Scalar_Storage_Order use System.High_Order_First; + + type R2 is record + I : My_Integer; + A : Arr2; + end record; + for R2'Bit_Order use System.High_Order_First; + for R2'Scalar_Storage_Order use System.High_Order_First; + + My_R1 : constant R1 := (I => 16#12345678#, + A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); + + My_R2 : constant R2 := (I => 16#12345678#, + A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); + +end Init11; |