3 with Init11
; use Init11
;
4 with Text_IO
; use Text_IO
;
17 Dump
(A1
'Address, R1
'Max_Size_In_Storage_Elements);
19 -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
22 Dump
(B1
'Address, R1
'Max_Size_In_Storage_Elements);
24 -- { dg-output "B1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
27 Dump
(A2
'Address, R2
'Max_Size_In_Storage_Elements);
29 -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
32 Dump
(B2
'Address, R2
'Max_Size_In_Storage_Elements);
34 -- { dg-output "B2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n"}
36 if A1
.I
/= B1
.I
or A1
.A
(1) /= B1
.A
(1) then
40 if A2
.I
/= B2
.I
or A2
.A
(1) /= B2
.A
(1) then