4 with Text_IO
; use Text_IO
;
14 Dump
(My_R1
'Address, R1
'Max_Size_In_Storage_Elements);
16 -- { dg-output "My_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
18 Dump
(My_R2
'Address, R2
'Max_Size_In_Storage_Elements);
20 -- { dg-output "My_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
23 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
25 -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
28 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
30 -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
31 Local_R1
:= (I
=> 16#
12345678#
,
32 N
=> (16#AB0012#
, 16#CD0034#
, 16#EF0056#
));
34 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
36 -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
37 Local_R2
:= (I
=> 16#
12345678#
,
38 N
=> (16#AB0012#
, 16#CD0034#
, 16#EF0056#
));
40 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
42 -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
43 Local_R1
.I
:= Local_R2
.I
;
44 Local_R1
.N
.C1
:= Local_R2
.N
.C1
;
45 Local_R1
.N
.C2
:= Local_R2
.N
.C2
;
46 Local_R1
.N
.C3
:= Local_R2
.N
.C3
;
49 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
51 -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
52 Local_R2
.I
:= Local_R1
.I
;
53 Local_R2
.N
.C1
:= Local_R1
.N
.C1
;
54 Local_R2
.N
.C2
:= Local_R1
.N
.C2
;
55 Local_R2
.N
.C3
:= Local_R1
.N
.C3
;
58 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
60 -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }