4 with Text_IO
; use Text_IO
;
14 Dump
(My_R1
'Address, R1
'Max_Size_In_Storage_Elements);
16 -- { dg-output "My_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
19 Dump
(My_R2
'Address, R2
'Max_Size_In_Storage_Elements);
21 -- { dg-output "My_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
25 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
27 -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
31 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
33 -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
38 N
=> (16#AB#
, 16#CD#
, 16#EF#
),
41 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
43 -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
48 N
=> (16#AB#
, 16#CD#
, 16#EF#
),
51 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
53 -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
55 Local_R1
.S1
:= Local_R2
.S1
;
56 Local_R1
.I
:= Local_R2
.I
;
57 Local_R1
.S2
:= Local_R2
.S2
;
58 Local_R1
.N
.C1
:= Local_R2
.N
.C1
;
59 Local_R1
.N
.C2
:= Local_R2
.N
.C2
;
60 Local_R1
.N
.C3
:= Local_R2
.N
.C3
;
61 Local_R1
.B
:= Local_R2
.B
;
64 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
66 -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
68 Local_R2
.S1
:= Local_R1
.S1
;
69 Local_R2
.I
:= Local_R1
.I
;
70 Local_R2
.S2
:= Local_R1
.S2
;
71 Local_R2
.N
.C1
:= Local_R1
.N
.C1
;
72 Local_R2
.N
.C2
:= Local_R1
.N
.C2
;
73 Local_R2
.N
.C3
:= Local_R1
.N
.C3
;
74 Local_R2
.B
:= Local_R1
.B
;
77 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
79 -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }