2 -- { dg-options "-gnatws" }
4 with Init10
; use Init10
;
5 with Text_IO
; use Text_IO
;
18 Dump
(A1
'Address, R1
'Max_Size_In_Storage_Elements);
20 -- { dg-output "A1 : 78 56 34 12.*\n" }
23 Dump
(B1
'Address, R1
'Max_Size_In_Storage_Elements);
25 -- { dg-output "B1 : 78 56 34 12.*\n" }
28 Dump
(A2
'Address, R2
'Max_Size_In_Storage_Elements);
30 -- { dg-output "A2 : 12 34 56 78.*\n" }
33 Dump
(B2
'Address, R2
'Max_Size_In_Storage_Elements);
35 -- { dg-output "B2 : 12 34 56 78.*\n" }
41 if A1
.I
/= 16#
12345678#
then
49 if A2
.I
/= 16#
12345678#
then