3 with Init12
; use Init12
;
4 with Text_IO
; use Text_IO
;
16 Dump
(My_A1
'Address, Arr1
'Max_Size_In_Storage_Elements);
18 -- { dg-output "My_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
21 Dump
(My_A11
'Address, Arr11
'Max_Size_In_Storage_Elements);
23 -- { dg-output "My_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
26 Dump
(My_A2
'Address, Arr2
'Max_Size_In_Storage_Elements);
28 -- { dg-output "My_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
31 Dump
(My_A22
'Address, Arr22
'Max_Size_In_Storage_Elements);
33 -- { dg-output "My_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
37 Dump
(Local_A1
'Address, Arr1
'Max_Size_In_Storage_Elements);
39 -- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
43 Dump
(Local_A11
'Address, Arr11
'Max_Size_In_Storage_Elements);
45 -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
49 Dump
(Local_A2
'Address, Arr2
'Max_Size_In_Storage_Elements);
51 -- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
55 Dump
(Local_A22
'Address, Arr22
'Max_Size_In_Storage_Elements);
57 -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
59 Local_A1
:= (16#AB0012#
, 16#CD0034#
, 16#EF0056#
);
61 Dump
(Local_A1
'Address, Arr1
'Max_Size_In_Storage_Elements);
63 -- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
65 Local_A11
:= (1 => (16#AB0012#
, 16#CD0034#
),
66 2 => (16#AB0012#
, 16#CD0034#
));
68 Dump
(Local_A11
'Address, Arr11
'Max_Size_In_Storage_Elements);
70 -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
72 Local_A2
:= (16#AB0012#
, 16#CD0034#
, 16#EF0056#
);
74 Dump
(Local_A2
'Address, Arr2
'Max_Size_In_Storage_Elements);
76 -- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
78 Local_A22
:= (1 => (16#AB0012#
, 16#CD0034#
),
79 2 => (16#AB0012#
, 16#CD0034#
));
81 Dump
(Local_A22
'Address, Arr22
'Max_Size_In_Storage_Elements);
83 -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
85 Local_A1
(1) := Local_A2
(1);
86 Local_A1
(2) := Local_A2
(2);
87 Local_A1
(3) := Local_A2
(3);
90 Dump
(Local_A1
'Address, Arr1
'Max_Size_In_Storage_Elements);
92 -- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
94 Local_A11
(1,1) := Local_A22
(1,1);
95 Local_A11
(1,2) := Local_A22
(1,2);
96 Local_A11
(2,1) := Local_A22
(2,1);
97 Local_A11
(2,2) := Local_A22
(2,2);
100 Dump
(Local_A11
'Address, Arr11
'Max_Size_In_Storage_Elements);
102 -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
104 Local_A2
(1) := Local_A1
(1);
105 Local_A2
(2) := Local_A1
(2);
106 Local_A2
(3) := Local_A1
(3);
109 Dump
(Local_A2
'Address, Arr2
'Max_Size_In_Storage_Elements);
111 -- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
113 Local_A22
(1,1) := Local_A11
(1,1);
114 Local_A22
(1,2) := Local_A11
(1,2);
115 Local_A22
(2,1) := Local_A11
(2,1);
116 Local_A22
(2,2) := Local_A11
(2,2);
119 Dump
(Local_A22
'Address, Arr22
'Max_Size_In_Storage_Elements);
121 -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }