| with System; |
| |
| package Init12 is |
| |
| type Arr1 is array (1 .. 3) of Integer; |
| for Arr1'Scalar_Storage_Order use System.Low_Order_First; |
| |
| type Arr11 is array (1 .. 2, 1 .. 2) of Integer; |
| for Arr11'Scalar_Storage_Order use System.Low_Order_First; |
| |
| type Arr2 is array (1 .. 3) of Integer; |
| for Arr2'Scalar_Storage_Order use System.High_Order_First; |
| |
| type Arr22 is array (1 .. 2, 1 .. 2) of Integer; |
| for Arr22'Scalar_Storage_Order use System.High_Order_First; |
| |
| My_A1 : constant Arr1 := (16#AB0012#, 16#CD0034#, 16#EF0056#); |
| My_A11 : constant Arr11 := (1 => (16#AB0012#, 16#CD0034#), |
| 2 => (16#AB0012#, 16#CD0034#)); |
| |
| My_A2 : constant Arr2 := (16#AB0012#, 16#CD0034#, 16#EF0056#); |
| My_A22 : constant Arr22 := (1 => (16#AB0012#, 16#CD0034#), |
| 2 => (16#AB0012#, 16#CD0034#)); |
| |
| end Init12; |
