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 : db 0f 49 40.*\n" }
23 Dump
(B1
'Address, R1
'Max_Size_In_Storage_Elements);
25 -- { dg-output "B1 : db 0f 49 40.*\n" }
28 Dump
(A2
'Address, R2
'Max_Size_In_Storage_Elements);
30 -- { dg-output "A2 : 40 49 0f db.*\n" }
33 Dump
(B2
'Address, R2
'Max_Size_In_Storage_Elements);
35 -- { dg-output "B2 : 40 49 0f db.*\n" }