3 with Init13
; use Init13
;
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 db 0f 49 c0.*\n" }
23 Dump
(B1
'Address, R1
'Max_Size_In_Storage_Elements);
25 -- { dg-output "B1 : db 0f 49 40 db 0f 49 c0.*\n" }
28 Dump
(A2
'Address, R2
'Max_Size_In_Storage_Elements);
30 -- { dg-output "A2 : 40 49 0f db c0 49 0f db.*\n" }
33 Dump
(B2
'Address, R2
'Max_Size_In_Storage_Elements);
35 -- { dg-output "B2 : 40 49 0f db c0 49 0f db.*\n" }
41 if A1
.F
/= (Pi
, -Pi
) then
49 if A2
.F
/= (Pi
, -Pi
) then