3 with Init12
; use Init12
;
4 with Text_IO
; use Text_IO
;
13 Local_A11
(1,1) := My_A11
(1,1) + 1;
14 Local_A11
(1,2) := My_A11
(1,2) + 1;
15 Local_A11
(2,1) := My_A11
(2,1) + 1;
16 Local_A11
(2,2) := My_A11
(2,2) + 1;
19 Dump
(Local_A11
'Address, Arr11
'Max_Size_In_Storage_Elements);
21 -- { dg-output "Local_A11 : 13 00 ab 00 35 00 cd 00 13 00 ab 00 35 00 cd 00.*\n" }
23 Local_A22
(1,1) := My_A22
(1,1) + 1;
24 Local_A22
(1,2) := My_A22
(1,2) + 1;
25 Local_A22
(2,1) := My_A22
(2,1) + 1;
26 Local_A22
(2,2) := My_A22
(2,2) + 1;
29 Dump
(Local_A22
'Address, Arr22
'Max_Size_In_Storage_Elements);
31 -- { dg-output "Local_A22 : 00 ab 00 13 00 cd 00 35 00 ab 00 13 00 cd 00 35.*\n" }
33 Local_A11
:= (1 => (16#AB0012#
, 16#CD0034#
),
34 2 => (16#AB0012#
, 16#CD0034#
));
36 Dump
(Local_A11
'Address, Arr11
'Max_Size_In_Storage_Elements);
38 -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
40 Local_A22
:= (1 => (16#AB0012#
, 16#CD0034#
),
41 2 => (16#AB0012#
, 16#CD0034#
));
43 Dump
(Local_A22
'Address, Arr22
'Max_Size_In_Storage_Elements);
45 -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
47 Local_A11
(1,1) := Local_A11
(1,1) + 1;
48 Local_A11
(1,2) := Local_A11
(1,2) + 1;
49 Local_A11
(2,1) := Local_A11
(2,1) + 1;
50 Local_A11
(2,2) := Local_A11
(2,2) + 1;
53 Dump
(Local_A11
'Address, Arr11
'Max_Size_In_Storage_Elements);
55 -- { dg-output "Local_A11 : 13 00 ab 00 35 00 cd 00 13 00 ab 00 35 00 cd 00.*\n" }
57 Local_A22
(1,1) := Local_A22
(1,1) + 1;
58 Local_A22
(1,2) := Local_A22
(1,2) + 1;
59 Local_A22
(2,1) := Local_A22
(2,1) + 1;
60 Local_A22
(2,2) := Local_A22
(2,2) + 1;
63 Dump
(Local_A22
'Address, Arr22
'Max_Size_In_Storage_Elements);
65 -- { dg-output "Local_A22 : 00 ab 00 13 00 cd 00 35 00 ab 00 13 00 cd 00 35.*\n" }