1-- { dg-do run }
2
3with Init1; use Init1;
4with Text_IO; use Text_IO;
5with Dump;
6
7procedure T1 is
8
9  Local_R1 : R1;
10  Local_R2 : R2;
11
12begin
13  Local_R1.I := My_R1.I + 1;
14
15  Put ("Local_R1 :");
16  Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
17  New_Line;
18  -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
19
20  Local_R2.I := My_R2.I + 1;
21
22  Put ("Local_R2 :");
23  Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
24  New_Line;
25  -- { dg-output "Local_R2 : 12 34 56 79.*\n" }
26
27  Local_R1.I := 16#12345678#;
28
29  Put ("Local_R1 :");
30  Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
31  New_Line;
32  -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
33
34  Local_R2.I := 16#12345678#;
35
36  Put ("Local_R2 :");
37  Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
38  New_Line;
39  -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
40
41  Local_R1.I := Local_R1.I + 1;
42
43  Put ("Local_R1 :");
44  Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
45  New_Line;
46  -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
47
48  Local_R2.I := Local_R2.I + 1;
49
50  Put ("Local_R2 :");
51  Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
52  New_Line;
53  -- { dg-output "Local_R2 : 12 34 56 79.*\n" }
54
55end;
56