4 with Text_IO
; use Text_IO
;
13 Local_R1
.I
:= My_R1
.I
+ 1;
16 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
18 -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
20 Local_R2
.I
:= My_R2
.I
+ 1;
23 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
25 -- { dg-output "Local_R2 : 12 34 56 79.*\n" }
27 Local_R1
.I
:= 16#
12345678#
;
30 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
32 -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
34 Local_R2
.I
:= 16#
12345678#
;
37 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
39 -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
41 Local_R1
.I
:= Local_R1
.I
+ 1;
44 Dump
(Local_R1
'Address, R1
'Max_Size_In_Storage_Elements);
46 -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
48 Local_R2
.I
:= Local_R2
.I
+ 1;
51 Dump
(Local_R2
'Address, R2
'Max_Size_In_Storage_Elements);
53 -- { dg-output "Local_R2 : 12 34 56 79.*\n" }