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.*\n" }
22 Dump
(B1
'Address, R1
'Max_Size_In_Storage_Elements);
24 -- { dg-output "B1 : 78 56 34 12.*\n" }
27 Dump
(A2
'Address, R2
'Max_Size_In_Storage_Elements);
29 -- { dg-output "A2 : 12 34 56 78.*\n" }
32 Dump
(B2
'Address, R2
'Max_Size_In_Storage_Elements);
34 -- { dg-output "B2 : 12 34 56 78.*\n" }
40 if A1
.I
/= 16#
12345678#
then
48 if A2
.I
/= 16#
12345678#
then