1with System;
2
3package Init12 is
4
5  type Arr1 is array (1 .. 3) of Integer;
6  for Arr1'Scalar_Storage_Order use System.Low_Order_First;
7
8  type Arr11 is array (1 .. 2, 1 .. 2) of Integer;
9  for Arr11'Scalar_Storage_Order use System.Low_Order_First;
10
11  type Arr2 is array (1 .. 3) of Integer;
12  for Arr2'Scalar_Storage_Order use System.High_Order_First;
13
14  type Arr22 is array (1 .. 2, 1 .. 2) of Integer;
15  for Arr22'Scalar_Storage_Order use System.High_Order_First;
16
17  My_A1   : constant Arr1   := (16#AB0012#, 16#CD0034#, 16#EF0056#);
18  My_A11  : constant Arr11  := (1 => (16#AB0012#, 16#CD0034#),
19                                2 => (16#AB0012#, 16#CD0034#));
20
21  My_A2   : constant Arr2   := (16#AB0012#, 16#CD0034#, 16#EF0056#);
22  My_A22  : constant Arr22  := (1 => (16#AB0012#, 16#CD0034#),
23                                2 => (16#AB0012#, 16#CD0034#));
24
25end Init12;
26