4 with Ada
.Numerics
; use Ada
.Numerics
;
5 with Text_IO
; use Text_IO
;
18 Dump
(A1
'Address, R1
'Max_Size_In_Storage_Elements);
20 -- { dg-output "A1 : 18 2d 44 54 fb 21 09 40.*\n" }
23 Dump
(B1
'Address, R1
'Max_Size_In_Storage_Elements);
25 -- { dg-output "B1 : 18 2d 44 54 fb 21 09 40.*\n" }
28 Dump
(A2
'Address, R2
'Max_Size_In_Storage_Elements);
30 -- { dg-output "A2 : 40 09 21 fb 54 44 2d 18.*\n" }
33 Dump
(B2
'Address, R2
'Max_Size_In_Storage_Elements);
35 -- { dg-output "B2 : 40 09 21 fb 54 44 2d 18.*\n" }