1-- { dg-do run } 2 3with Init4; use Init4; 4with Ada.Numerics; use Ada.Numerics; 5with Text_IO; use Text_IO; 6with Dump; 7 8procedure Q4 is 9 10 A1 : R1 := My_R1; 11 B1 : R1 := My_R1; 12 13 A2 : R2 := My_R2; 14 B2 : R2 := My_R2; 15 16begin 17 Put ("A1 :"); 18 Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 19 New_Line; 20 -- { dg-output "A1 : db 0f 49 40.*\n" } 21 22 Put ("B1 :"); 23 Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 24 New_Line; 25 -- { dg-output "B1 : db 0f 49 40.*\n" } 26 27 Put ("A2 :"); 28 Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 29 New_Line; 30 -- { dg-output "A2 : 40 49 0f db.*\n" } 31 32 Put ("B2 :"); 33 Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 34 New_Line; 35 -- { dg-output "B2 : 40 49 0f db.*\n" } 36 37 if A1.F /= B1.F then 38 raise Program_Error; 39 end if; 40 41 if A1.F /= Pi then 42 raise Program_Error; 43 end if; 44 45 if A2.F /= B2.F then 46 raise Program_Error; 47 end if; 48 49 if A2.F /= Pi then 50 raise Program_Error; 51 end if; 52 53end; 54