mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 01:45:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR ada/69488 (tests in gnat/sso give a lot of spurious failures)

Browse Source 
PR ada/69488
	* gnat.dg/sso/*.adb: Robustify dg-output directives.

From-SVN: r232883
This commit is contained in:
Rainer Emrich 2016-01-27 16:53:27 +00:00 committed by Eric Botcazou
parent 05bf54c3c3
commit 27e23cca33
58 changed files with 354 additions and 349 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-01-27 Rainer Emrich <rainer@emrich-ebersheim.de>
PR ada/69488
* gnat.dg/sso/*.adb: Robustify dg-output directives.
2016-01-27 Marek Polacek <polacek@redhat.com> 2016-01-27 Marek Polacek <polacek@redhat.com>
PR c++/69379 PR c++/69379

6
gcc/testsuite/gnat.dg/sso/conv1.adb
View File

@ -36,15 +36,15 @@ begin
X_L.S := 12345; X_L.S := 12345;
X_L.C := 'a'; X_L.C := 'a';
Dump ("X_L", X_L.S, X_L.C); Dump ("X_L", X_L.S, X_L.C);
-- { dg-output "X_L = \\(S => 12345, C => 'a'\\)\n" } -- { dg-output "X_L = \\(S => 12345, C => 'a'\\).*\n" }
X_H.S := 23456; X_H.S := 23456;
X_H.C := 'b'; X_H.C := 'b';
Dump ("X_H", X_H.S, X_H.C); Dump ("X_H", X_H.S, X_H.C);
-- { dg-output "X_H = \\(S => 23456, C => 'b'\\)\n" } -- { dg-output "X_H = \\(S => 23456, C => 'b'\\).*\n" }
X_H := R_H (X_L); X_H := R_H (X_L);
Dump ("X_H", X_H.S, X_H.C); Dump ("X_H", X_H.S, X_H.C);
-- { dg-output "X_H = \\(S => 12345, C => 'a'\\)\n" } -- { dg-output "X_H = \\(S => 12345, C => 'a'\\).*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p1.adb
View File

@ -13,50 +13,50 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 78 56 34 12\n" } -- { dg-output "My_R1 : 78 56 34 12.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 12 34 56 78\n" } -- { dg-output "My_R2 : 12 34 56 78.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
Local_R1.I := 16#12345678#; Local_R1.I := 16#12345678#;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2.I := 16#12345678#; Local_R2.I := 16#12345678#;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p10.adb
View File

@ -14,50 +14,50 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 78 56 34 12\n" } -- { dg-output "My_R1 : 78 56 34 12.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 12 34 56 78\n" } -- { dg-output "My_R2 : 12 34 56 78.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
Local_R1.I := 16#12345678#; Local_R1.I := 16#12345678#;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2.I := 16#12345678#; Local_R2.I := 16#12345678#;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p11.adb
View File

@ -13,38 +13,38 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "My_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "My_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
Local_R1.A(1) := Local_R2.A(1); Local_R1.A(1) := Local_R2.A(1);
@ -54,7 +54,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
Local_R2.A(1) := Local_R1.A(1); Local_R2.A(1) := Local_R1.A(1);
@ -64,5 +64,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
end; end;

32
gcc/testsuite/gnat.dg/sso/p12.adb
View File

@ -15,72 +15,72 @@ begin
Put ("My_A1 :"); Put ("My_A1 :");
Dump (My_A1'Address, Arr1'Max_Size_In_Storage_Elements); Dump (My_A1'Address, Arr1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "My_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("My_A11 :"); Put ("My_A11 :");
Dump (My_A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (My_A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "My_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Put ("My_A2 :"); Put ("My_A2 :");
Dump (My_A2'Address, Arr2'Max_Size_In_Storage_Elements); Dump (My_A2'Address, Arr2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "My_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("My_A22 :"); Put ("My_A22 :");
Dump (My_A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (My_A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "My_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
Local_A1 := My_A1; Local_A1 := My_A1;
Put ("Local_A1 :"); Put ("Local_A1 :");
Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements); Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_A11 := My_A11; Local_A11 := My_A11;
Put ("Local_A11 :"); Put ("Local_A11 :");
Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Local_A2 := My_A2; Local_A2 := My_A2;
Put ("Local_A2 :"); Put ("Local_A2 :");
Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements); Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_A22 := My_A22; Local_A22 := My_A22;
Put ("Local_A22 :"); Put ("Local_A22 :");
Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
Local_A1 := (16#AB0012#, 16#CD0034#, 16#EF0056#); Local_A1 := (16#AB0012#, 16#CD0034#, 16#EF0056#);
Put ("Local_A1 :"); Put ("Local_A1 :");
Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements); Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_A11 := (1 => (16#AB0012#, 16#CD0034#), Local_A11 := (1 => (16#AB0012#, 16#CD0034#),
2 => (16#AB0012#, 16#CD0034#)); 2 => (16#AB0012#, 16#CD0034#));
Put ("Local_A11 :"); Put ("Local_A11 :");
Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Local_A2 := (16#AB0012#, 16#CD0034#, 16#EF0056#); Local_A2 := (16#AB0012#, 16#CD0034#, 16#EF0056#);
Put ("Local_A2 :"); Put ("Local_A2 :");
Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements); Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_A22 := (1 => (16#AB0012#, 16#CD0034#), Local_A22 := (1 => (16#AB0012#, 16#CD0034#),
2 => (16#AB0012#, 16#CD0034#)); 2 => (16#AB0012#, 16#CD0034#));
Put ("Local_A22 :"); Put ("Local_A22 :");
Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
Local_A1(1) := Local_A2(1); Local_A1(1) := Local_A2(1);
Local_A1(2) := Local_A2(2); Local_A1(2) := Local_A2(2);
@ -89,7 +89,7 @@ begin
Put ("Local_A1 :"); Put ("Local_A1 :");
Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements); Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_A11(1,1) := Local_A22(1,1); Local_A11(1,1) := Local_A22(1,1);
Local_A11(1,2) := Local_A22(1,2); Local_A11(1,2) := Local_A22(1,2);
@ -99,7 +99,7 @@ begin
Put ("Local_A11 :"); Put ("Local_A11 :");
Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Local_A2(1) := Local_A1(1); Local_A2(1) := Local_A1(1);
Local_A2(2) := Local_A1(2); Local_A2(2) := Local_A1(2);
@ -108,7 +108,7 @@ begin
Put ("Local_A2 :"); Put ("Local_A2 :");
Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements); Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_A22(1,1) := Local_A11(1,1); Local_A22(1,1) := Local_A11(1,1);
Local_A22(1,2) := Local_A11(1,2); Local_A22(1,2) := Local_A11(1,2);
@ -118,5 +118,5 @@ begin
Put ("Local_A22 :"); Put ("Local_A22 :");
Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p13.adb
View File

@ -14,50 +14,50 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : db 0f 49 40 db 0f 49 c0\n" } -- { dg-output "My_R1 : db 0f 49 40 db 0f 49 c0.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 40 49 0f db c0 49 0f db\n" } -- { dg-output "My_R2 : 40 49 0f db c0 49 0f db.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0\n" } -- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db.*\n" }
Local_R1.F := (Pi, -Pi); Local_R1.F := (Pi, -Pi);
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0\n" } -- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0.*\n" }
Local_R2.F := (Pi, -Pi); Local_R2.F := (Pi, -Pi);
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db.*\n" }
Local_R1.F := Local_R2.F; Local_R1.F := Local_R2.F;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0\n" } -- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0.*\n" }
Local_R2.F := Local_R1.F; Local_R2.F := Local_R1.F;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p2.adb
View File

@ -13,24 +13,24 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "My_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "My_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1 := (S1 => 2, Local_R1 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -40,7 +40,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2 := (S1 => 2, Local_R2 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -50,7 +50,7 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1.S1 := Local_R2.S1; Local_R1.S1 := Local_R2.S1;
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
@ -63,7 +63,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2.S1 := Local_R1.S1; Local_R2.S1 := Local_R1.S1;
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
@ -76,5 +76,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p3.adb
View File

@ -13,24 +13,24 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "My_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "My_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1 := (S1 => 2, Local_R1 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -40,7 +40,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2 := (S1 => 2, Local_R2 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -50,7 +50,7 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1.S1 := Local_R2.S1; Local_R1.S1 := Local_R2.S1;
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
@ -63,7 +63,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2.S1 := Local_R1.S1; Local_R2.S1 := Local_R1.S1;
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
@ -76,5 +76,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p4.adb
View File

@ -14,50 +14,50 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : db 0f 49 40\n" } -- { dg-output "My_R1 : db 0f 49 40.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 40 49 0f db\n" } -- { dg-output "My_R2 : 40 49 0f db.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40\n" } -- { dg-output "Local_R1 : db 0f 49 40.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db.*\n" }
Local_R1.F := Pi; Local_R1.F := Pi;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40\n" } -- { dg-output "Local_R1 : db 0f 49 40.*\n" }
Local_R2.F := Pi; Local_R2.F := Pi;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db.*\n" }
Local_R1.F := Local_R2.F; Local_R1.F := Local_R2.F;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40\n" } -- { dg-output "Local_R1 : db 0f 49 40.*\n" }
Local_R2.F := Local_R1.F; Local_R2.F := Local_R1.F;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p5.adb
View File

@ -13,38 +13,38 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "My_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "My_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
Local_R1.A(1) := Local_R2.A(1); Local_R1.A(1) := Local_R2.A(1);
@ -54,7 +54,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
Local_R2.A(1) := Local_R1.A(1); Local_R2.A(1) := Local_R1.A(1);
@ -64,5 +64,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p6.adb
View File

@ -13,33 +13,33 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "My_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "My_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
Local_R1.A(1) := Local_R2.A(1); Local_R1.A(1) := Local_R2.A(1);
Local_R1.A(2) := Local_R2.A(2); Local_R1.A(2) := Local_R2.A(2);
@ -48,7 +48,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
Local_R2.A(1) := Local_R1.A(1); Local_R2.A(1) := Local_R1.A(1);
Local_R2.A(2) := Local_R1.A(2); Local_R2.A(2) := Local_R1.A(2);
@ -57,5 +57,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p7.adb
View File

@ -13,33 +13,33 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "My_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "My_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
Local_R1.N.C1 := Local_R2.N.C1; Local_R1.N.C1 := Local_R2.N.C1;
Local_R1.N.C2 := Local_R2.N.C2; Local_R1.N.C2 := Local_R2.N.C2;
@ -48,7 +48,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
Local_R2.N.C1 := Local_R1.N.C1; Local_R2.N.C1 := Local_R1.N.C1;
Local_R2.N.C2 := Local_R1.N.C2; Local_R2.N.C2 := Local_R1.N.C2;
@ -57,5 +57,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p8.adb
View File

@ -13,33 +13,33 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "My_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "My_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1.I := Local_R2.I; Local_R1.I := Local_R2.I;
Local_R1.N.C1 := Local_R2.N.C1; Local_R1.N.C1 := Local_R2.N.C1;
Local_R1.N.C2 := Local_R2.N.C2; Local_R1.N.C2 := Local_R2.N.C2;
@ -48,7 +48,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2.I := Local_R1.I; Local_R2.I := Local_R1.I;
Local_R2.N.C1 := Local_R1.N.C1; Local_R2.N.C1 := Local_R1.N.C1;
Local_R2.N.C2 := Local_R1.N.C2; Local_R2.N.C2 := Local_R1.N.C2;
@ -57,5 +57,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
end; end;

16
gcc/testsuite/gnat.dg/sso/p9.adb
View File

@ -14,50 +14,50 @@ begin
Put ("My_R1 :"); Put ("My_R1 :");
Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R1 : 18 2d 44 54 fb 21 09 40\n" } -- { dg-output "My_R1 : 18 2d 44 54 fb 21 09 40.*\n" }
Put ("My_R2 :"); Put ("My_R2 :");
Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "My_R2 : 40 09 21 fb 54 44 2d 18\n" } -- { dg-output "My_R2 : 40 09 21 fb 54 44 2d 18.*\n" }
Local_R1 := My_R1; Local_R1 := My_R1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40\n" } -- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40.*\n" }
Local_R2 := My_R2; Local_R2 := My_R2;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18\n" } -- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18.*\n" }
Local_R1.F := Pi; Local_R1.F := Pi;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40\n" } -- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40.*\n" }
Local_R2.F := Pi; Local_R2.F := Pi;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18\n" } -- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18.*\n" }
Local_R1.F := Local_R2.F; Local_R1.F := Local_R2.F;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40\n" } -- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40.*\n" }
Local_R2.F := Local_R1.F; Local_R2.F := Local_R1.F;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18\n" } -- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18.*\n" }
end; end;

8
gcc/testsuite/gnat.dg/sso/q1.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12\n" } -- { dg-output "A1 : 78 56 34 12.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 78 56 34 12\n" } -- { dg-output "B1 : 78 56 34 12.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78\n" } -- { dg-output "A2 : 12 34 56 78.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 12 34 56 78\n" } -- { dg-output "B2 : 12 34 56 78.*\n" }
if A1.I /= B1.I then if A1.I /= B1.I then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q10.adb
View File

@ -17,22 +17,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12\n" } -- { dg-output "A1 : 78 56 34 12.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 78 56 34 12\n" } -- { dg-output "B1 : 78 56 34 12.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78\n" } -- { dg-output "A2 : 12 34 56 78.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 12 34 56 78\n" } -- { dg-output "B2 : 12 34 56 78.*\n" }
if A1.I /= B1.I then if A1.I /= B1.I then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q11.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "B1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n"} -- { dg-output "B2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n"}
if A1.I /= B1.I or A1.A(1) /= B1.A(1) then if A1.I /= B1.I or A1.A(1) /= B1.A(1) then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q12.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, Arr1'Max_Size_In_Storage_Elements); Dump (A1'Address, Arr1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A11 :"); Put ("A11 :");
Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, Arr2'Max_Size_In_Storage_Elements); Dump (A2'Address, Arr2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A22 :"); Put ("A22 :");
Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
if A1(1) /= A11(1,1) then if A1(1) /= A11(1,1) then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q13.adb
View File

@ -17,22 +17,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : db 0f 49 40 db 0f 49 c0\n" } -- { dg-output "A1 : db 0f 49 40 db 0f 49 c0.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : db 0f 49 40 db 0f 49 c0\n" } -- { dg-output "B1 : db 0f 49 40 db 0f 49 c0.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 40 49 0f db c0 49 0f db\n" } -- { dg-output "A2 : 40 49 0f db c0 49 0f db.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 40 49 0f db c0 49 0f db\n" } -- { dg-output "B2 : 40 49 0f db c0 49 0f db.*\n" }
if A1.F /= B1.F then if A1.F /= B1.F then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q2.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "B1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "B2 : 84 8d 15 9e 15 5b 35 df.*\n" }
if A1.S1 /= B1.S1 then if A1.S1 /= B1.S1 then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q3.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "B1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "B2 : 84 8d 15 9e 15 5b 35 df.*\n" }
if A1.S1 /= B1.S1 then if A1.S1 /= B1.S1 then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q4.adb
View File

@ -17,22 +17,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : db 0f 49 40\n" } -- { dg-output "A1 : db 0f 49 40.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : db 0f 49 40\n" } -- { dg-output "B1 : db 0f 49 40.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 40 49 0f db\n" } -- { dg-output "A2 : 40 49 0f db.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 40 49 0f db\n" } -- { dg-output "B2 : 40 49 0f db.*\n" }
if A1.F /= B1.F then if A1.F /= B1.F then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q5.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "B1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n"} -- { dg-output "B2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
if A1.I /= B1.I or A1.A(1) /= B1.A(1) then if A1.I /= B1.I or A1.A(1) /= B1.A(1) then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q6.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "B1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "B2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
if A1.I /= B1.I or A1.A(1) /= B1.A(1) then if A1.I /= B1.I or A1.A(1) /= B1.A(1) then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q7.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "B1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "B2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
if A1.I /= B1.I or A1.N.C1 /= B1.N.C1 then if A1.I /= B1.I or A1.N.C1 /= B1.N.C1 then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q8.adb
View File

@ -16,22 +16,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "B1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "B2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
if A1.I /= B1.I or A1.N.C1 /= B1.N.C1 then if A1.I /= B1.I or A1.N.C1 /= B1.N.C1 then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/q9.adb
View File

@ -17,22 +17,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 18 2d 44 54 fb 21 09 40\n" } -- { dg-output "A1 : 18 2d 44 54 fb 21 09 40.*\n" }
Put ("B1 :"); Put ("B1 :");
Dump (B1'Address, R1'Max_Size_In_Storage_Elements); Dump (B1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B1 : 18 2d 44 54 fb 21 09 40\n" } -- { dg-output "B1 : 18 2d 44 54 fb 21 09 40.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R2'Max_Size_In_Storage_Elements); Dump (A2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 40 09 21 fb 54 44 2d 18\n" } -- { dg-output "A2 : 40 09 21 fb 54 44 2d 18.*\n" }
Put ("B2 :"); Put ("B2 :");
Dump (B2'Address, R2'Max_Size_In_Storage_Elements); Dump (B2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "B2 : 40 09 21 fb 54 44 2d 18\n" } -- { dg-output "B2 : 40 09 21 fb 54 44 2d 18.*\n" }
if A1.F /= B1.F then if A1.F /= B1.F then
raise Program_Error; raise Program_Error;

4
gcc/testsuite/gnat.dg/sso/r11.adb
View File

@ -40,12 +40,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
if Get_Elem (A1) /= 16#AB0012# then if Get_Elem (A1) /= 16#AB0012# then
raise Program_Error; raise Program_Error;

8
gcc/testsuite/gnat.dg/sso/r12.adb
View File

@ -68,22 +68,22 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, Arr1'Max_Size_In_Storage_Elements); Dump (A1'Address, Arr1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A11 :"); Put ("A11 :");
Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, Arr2'Max_Size_In_Storage_Elements); Dump (A2'Address, Arr2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A22 :"); Put ("A22 :");
Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
if Get_Elem (A1) /= 16#AB0012# then if Get_Elem (A1) /= 16#AB0012# then
raise Program_Error; raise Program_Error;

4
gcc/testsuite/gnat.dg/sso/r3.adb
View File

@ -40,12 +40,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df.*\n" }
if Get_Elem (A1) /= 16#12345678# then if Get_Elem (A1) /= 16#12345678# then
raise Program_Error; raise Program_Error;

4
gcc/testsuite/gnat.dg/sso/r5.adb
View File

@ -40,12 +40,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
if Get_Elem (A1) /= 16#AB0012# then if Get_Elem (A1) /= 16#AB0012# then
raise Program_Error; raise Program_Error;

4
gcc/testsuite/gnat.dg/sso/r6.adb
View File

@ -40,12 +40,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
if Get_Elem (A1) /= 16#AB0012# then if Get_Elem (A1) /= 16#AB0012# then
raise Program_Error; raise Program_Error;

4
gcc/testsuite/gnat.dg/sso/r7.adb
View File

@ -40,12 +40,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
if Get_Elem (A1) /= 16#AB0012# then if Get_Elem (A1) /= 16#AB0012# then
raise Program_Error; raise Program_Error;

4
gcc/testsuite/gnat.dg/sso/r8.adb
View File

@ -40,12 +40,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
if Get_Elem (A1) /= 16#AB0012# then if Get_Elem (A1) /= 16#AB0012# then
raise Program_Error; raise Program_Error;

20
gcc/testsuite/gnat.dg/sso/s11.adb
View File

@ -21,12 +21,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
AA1 := A1.A; AA1 := A1.A;
C1 := AA1(1); C1 := AA1(1);
@ -34,13 +34,13 @@ begin
C3 := AA1(3); C3 := AA1(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
AA1(1) := C1; AA1(1) := C1;
AA1(2) := C2; AA1(2) := C2;
@ -53,13 +53,13 @@ begin
C3 := AA2(3); C3 := AA2(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
AA2(1) := C1; AA2(1) := C1;
AA2(2) := C2; AA2(2) := C2;
@ -69,10 +69,10 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
end; end;

20
gcc/testsuite/gnat.dg/sso/s12.adb
View File

@ -20,12 +20,12 @@ begin
Put ("A11 :"); Put ("A11 :");
Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Put ("A22 :"); Put ("A22 :");
Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
A1 := (A11(1,1), A11(1,2), A11(2,1)); A1 := (A11(1,1), A11(1,2), A11(2,1));
C1 := A1(1); C1 := A1(1);
@ -33,13 +33,13 @@ begin
C3 := A1(3); C3 := A1(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 11206674\n" } -- { dg-output "C3 : 11206674.*\n" }
A1(1) := C1; A1(1) := C1;
A1(2) := C2; A1(2) := C2;
@ -52,13 +52,13 @@ begin
C3 := A2(3); C3 := A2(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 11206674\n" } -- { dg-output "C3 : 11206674.*\n" }
A2(1) := C1; A2(1) := C1;
A2(2) := C2; A2(2) := C2;
@ -68,10 +68,10 @@ begin
Put ("A11 :"); Put ("A11 :");
Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\n" } -- { dg-output "A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Put ("A22 :"); Put ("A22 :");
Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
end; end;

20
gcc/testsuite/gnat.dg/sso/s3.adb
View File

@ -21,12 +21,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df.*\n" }
N1 := A1.N; N1 := A1.N;
C1 := N1.C1; C1 := N1.C1;
@ -34,13 +34,13 @@ begin
C3 := N1.C3; C3 := N1.C3;
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 171\n" } -- { dg-output "C1 : 171.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 205\n" } -- { dg-output "C2 : 205.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 239\n" } -- { dg-output "C3 : 239.*\n" }
N1.C1 := C1; N1.C1 := C1;
N1.C2 := C2; N1.C2 := C2;
@ -53,13 +53,13 @@ begin
C3 := N2.C3; C3 := N2.C3;
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 171\n" } -- { dg-output "C1 : 171.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 205\n" } -- { dg-output "C2 : 205.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 239\n" } -- { dg-output "C3 : 239.*\n" }
N2.C1 := C1; N2.C1 := C1;
N2.C2 := C2; N2.C2 := C2;
@ -69,11 +69,11 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "A1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "A2 : 84 8d 15 9e 15 5b 35 df.*\n" }
end; end;

20
gcc/testsuite/gnat.dg/sso/s5.adb
View File

@ -21,12 +21,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
AA1 := A1.A; AA1 := A1.A;
C1 := AA1(1); C1 := AA1(1);
@ -34,13 +34,13 @@ begin
C3 := AA1(3); C3 := AA1(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
AA1(1) := C1; AA1(1) := C1;
AA1(2) := C2; AA1(2) := C2;
@ -53,13 +53,13 @@ begin
C3 := AA2(3); C3 := AA2(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
AA2(1) := C1; AA2(1) := C1;
AA2(2) := C2; AA2(2) := C2;
@ -69,10 +69,10 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
end; end;

20
gcc/testsuite/gnat.dg/sso/s6.adb
View File

@ -21,12 +21,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
AA1 := A1.A; AA1 := A1.A;
C1 := AA1(1); C1 := AA1(1);
@ -34,13 +34,13 @@ begin
C3 := AA1(3); C3 := AA1(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
AA1(1) := C1; AA1(1) := C1;
AA1(2) := C2; AA1(2) := C2;
@ -53,13 +53,13 @@ begin
C3 := AA2(3); C3 := AA2(3);
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
AA2(1) := C1; AA2(1) := C1;
AA2(2) := C2; AA2(2) := C2;
@ -69,11 +69,11 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
end; end;

20
gcc/testsuite/gnat.dg/sso/s7.adb
View File

@ -21,12 +21,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
N1 := A1.N; N1 := A1.N;
C1 := N1.C1; C1 := N1.C1;
@ -34,13 +34,13 @@ begin
C3 := N1.C3; C3 := N1.C3;
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
N1.C1 := C1; N1.C1 := C1;
N1.C2 := C2; N1.C2 := C2;
@ -53,13 +53,13 @@ begin
C3 := N2.C3; C3 := N2.C3;
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
N2.C1 := C1; N2.C1 := C1;
N2.C2 := C2; N2.C2 := C2;
@ -69,11 +69,11 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
end; end;

20
gcc/testsuite/gnat.dg/sso/s8.adb
View File

@ -21,12 +21,12 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
N1 := A1.N; N1 := A1.N;
C1 := N1.C1; C1 := N1.C1;
@ -34,13 +34,13 @@ begin
C3 := N1.C3; C3 := N1.C3;
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
N1.C1 := C1; N1.C1 := C1;
N1.C2 := C2; N1.C2 := C2;
@ -53,13 +53,13 @@ begin
C3 := N2.C3; C3 := N2.C3;
Put_Line("C1 :" & C1'Img); Put_Line("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Put_Line("C2 :" & C2'Img); Put_Line("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
Put_Line("C3 :" & C3'Img); Put_Line("C3 :" & C3'Img);
-- { dg-output "C3 : 15663190\n" } -- { dg-output "C3 : 15663190.*\n" }
N2.C1 := C1; N2.C1 := C1;
N2.C2 := C2; N2.C2 := C2;
@ -69,11 +69,11 @@ begin
Put ("A1 :"); Put ("A1 :");
Dump (A1'Address, R1'Max_Size_In_Storage_Elements); Dump (A1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "A1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Put ("A2 :"); Put ("A2 :");
Dump (A2'Address, R1'Max_Size_In_Storage_Elements); Dump (A2'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "A2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t1.adb
View File

@ -15,41 +15,41 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12\n" } -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79\n" } -- { dg-output "Local_R2 : 12 34 56 79.*\n" }
Local_R1.I := 16#12345678#; Local_R1.I := 16#12345678#;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2.I := 16#12345678#; Local_R2.I := 16#12345678#;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12\n" } -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79\n" } -- { dg-output "Local_R2 : 12 34 56 79.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t10.adb
View File

@ -16,41 +16,41 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12\n" } -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79\n" } -- { dg-output "Local_R2 : 12 34 56 79.*\n" }
Local_R1.I := 16#12345678#; Local_R1.I := 16#12345678#;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12\n" } -- { dg-output "Local_R1 : 78 56 34 12.*\n" }
Local_R2.I := 16#12345678#; Local_R2.I := 16#12345678#;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78\n" } -- { dg-output "Local_R2 : 12 34 56 78.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12\n" } -- { dg-output "Local_R1 : 79 56 34 12.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79\n" } -- { dg-output "Local_R2 : 12 34 56 79.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t11.adb
View File

@ -18,7 +18,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
Local_R2.A(1) := My_R2.A(1) + 1; Local_R2.A(1) := My_R2.A(1) + 1;
@ -28,21 +28,21 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
Local_R1.A(1) := Local_R1.A(1) + 1; Local_R1.A(1) := Local_R1.A(1) + 1;
@ -52,7 +52,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
Local_R2.A(1) := Local_R2.A(1) + 1; Local_R2.A(1) := Local_R2.A(1) + 1;
@ -62,6 +62,6 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t12.adb
View File

@ -18,7 +18,7 @@ begin
Put ("Local_A11 :"); Put ("Local_A11 :");
Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A11 : 13 00 ab 00 35 00 cd 00 13 00 ab 00 35 00 cd 00\n" } -- { dg-output "Local_A11 : 13 00 ab 00 35 00 cd 00 13 00 ab 00 35 00 cd 00.*\n" }
Local_A22(1,1) := My_A22(1,1) + 1; Local_A22(1,1) := My_A22(1,1) + 1;
Local_A22(1,2) := My_A22(1,2) + 1; Local_A22(1,2) := My_A22(1,2) + 1;
@ -28,21 +28,21 @@ begin
Put ("Local_A22 :"); Put ("Local_A22 :");
Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A22 : 00 ab 00 13 00 cd 00 35 00 ab 00 13 00 cd 00 35\n" } -- { dg-output "Local_A22 : 00 ab 00 13 00 cd 00 35 00 ab 00 13 00 cd 00 35.*\n" }
Local_A11 := (1 => (16#AB0012#, 16#CD0034#), Local_A11 := (1 => (16#AB0012#, 16#CD0034#),
2 => (16#AB0012#, 16#CD0034#)); 2 => (16#AB0012#, 16#CD0034#));
Put ("Local_A11 :"); Put ("Local_A11 :");
Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00\\n" } -- { dg-output "Local_A11 : 12 00 ab 00 34 00 cd 00 12 00 ab 00 34 00 cd 00.*\n" }
Local_A22 := (1 => (16#AB0012#, 16#CD0034#), Local_A22 := (1 => (16#AB0012#, 16#CD0034#),
2 => (16#AB0012#, 16#CD0034#)); 2 => (16#AB0012#, 16#CD0034#));
Put ("Local_A22 :"); Put ("Local_A22 :");
Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34\n" } -- { dg-output "Local_A22 : 00 ab 00 12 00 cd 00 34 00 ab 00 12 00 cd 00 34.*\n" }
Local_A11(1,1) := Local_A11(1,1) + 1; Local_A11(1,1) := Local_A11(1,1) + 1;
Local_A11(1,2) := Local_A11(1,2) + 1; Local_A11(1,2) := Local_A11(1,2) + 1;
@ -52,7 +52,7 @@ begin
Put ("Local_A11 :"); Put ("Local_A11 :");
Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A11 : 13 00 ab 00 35 00 cd 00 13 00 ab 00 35 00 cd 00\n" } -- { dg-output "Local_A11 : 13 00 ab 00 35 00 cd 00 13 00 ab 00 35 00 cd 00.*\n" }
Local_A22(1,1) := Local_A22(1,1) + 1; Local_A22(1,1) := Local_A22(1,1) + 1;
Local_A22(1,2) := Local_A22(1,2) + 1; Local_A22(1,2) := Local_A22(1,2) + 1;
@ -62,5 +62,5 @@ begin
Put ("Local_A22 :"); Put ("Local_A22 :");
Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_A22 : 00 ab 00 13 00 cd 00 35 00 ab 00 13 00 cd 00 35\n" } -- { dg-output "Local_A22 : 00 ab 00 13 00 cd 00 35 00 ab 00 13 00 cd 00 35.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t13.adb
View File

@ -16,41 +16,41 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : ee 87 84 40 db 0f 09 c0\n" } -- { dg-output "Local_R1 : ee 87 84 40 db 0f 09 c0.*\n" }
Local_R2.F := (My_R2.F.R + 1.0, My_R2.F.I + 1.0); Local_R2.F := (My_R2.F.R + 1.0, My_R2.F.I + 1.0);
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 84 87 ee c0 09 0f db\n" } -- { dg-output "Local_R2 : 40 84 87 ee c0 09 0f db.*\n" }
Local_R1.F := (Pi, -Pi); Local_R1.F := (Pi, -Pi);
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0\n" } -- { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0.*\n" }
Local_R2.F := (Pi, -Pi); Local_R2.F := (Pi, -Pi);
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db c0 49 0f db.*\n" }
Local_R1.F := (Local_R1.F.R + 1.0, Local_R1.F.I + 1.0); Local_R1.F := (Local_R1.F.R + 1.0, Local_R1.F.I + 1.0);
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : ee 87 84 40 db 0f 09 c0\n" } -- { dg-output "Local_R1 : ee 87 84 40 db 0f 09 c0.*\n" }
Local_R2.F := (Local_R2.F.R + 1.0, Local_R2.F.I + 1.0); Local_R2.F := (Local_R2.F.R + 1.0, Local_R2.F.I + 1.0);
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 84 87 ee c0 09 0f db\n" } -- { dg-output "Local_R2 : 40 84 87 ee c0 09 0f db.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t2.adb
View File

@ -21,7 +21,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03\n" } -- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03.*\n" }
Local_R2.S1 := My_R2.S1 - 1; Local_R2.S1 := My_R2.S1 - 1;
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
@ -34,7 +34,7 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e\n" } -- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e.*\n" }
Local_R1 := (S1 => 2, Local_R1 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -44,7 +44,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2 := (S1 => 2, Local_R2 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -54,7 +54,7 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1.S1 := Local_R1.S1 - 1; Local_R1.S1 := Local_R1.S1 - 1;
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
@ -67,7 +67,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03\n" } -- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03.*\n" }
Local_R2.S1 := Local_R2.S1 - 1; Local_R2.S1 := Local_R2.S1 - 1;
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
@ -80,5 +80,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e\n" } -- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t3.adb
View File

@ -21,7 +21,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03\n" } -- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03.*\n" }
Local_R2.S1 := My_R2.S1 - 1; Local_R2.S1 := My_R2.S1 - 1;
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
@ -34,7 +34,7 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e\n" } -- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e.*\n" }
Local_R1 := (S1 => 2, Local_R1 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -44,7 +44,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb\n" } -- { dg-output "Local_R1 : e2 59 d1 48 b4 aa d9 bb.*\n" }
Local_R2 := (S1 => 2, Local_R2 := (S1 => 2,
I => 16#12345678#, I => 16#12345678#,
@ -54,7 +54,7 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df\n" } -- { dg-output "Local_R2 : 84 8d 15 9e 15 5b 35 df.*\n" }
Local_R1.S1 := Local_R1.S1 - 1; Local_R1.S1 := Local_R1.S1 - 1;
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
@ -67,7 +67,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03\n" } -- { dg-output "Local_R1 : e5 59 d1 48 b0 a0 c1 03.*\n" }
Local_R2.S1 := Local_R2.S1 - 1; Local_R2.S1 := Local_R2.S1 - 1;
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
@ -80,5 +80,5 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e\n" } -- { dg-output "Local_R2 : 44 8d 15 9e 40 58 34 1e.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t4.adb
View File

@ -16,41 +16,41 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : ee 87 84 40\n" } -- { dg-output "Local_R1 : ee 87 84 40.*\n" }
Local_R2.F := My_R2.F + 1.0; Local_R2.F := My_R2.F + 1.0;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 84 87 ee\n" } -- { dg-output "Local_R2 : 40 84 87 ee.*\n" }
Local_R1.F := Pi; Local_R1.F := Pi;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : db 0f 49 40\n" } -- { dg-output "Local_R1 : db 0f 49 40.*\n" }
Local_R2.F := Pi; Local_R2.F := Pi;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 49 0f db\n" } -- { dg-output "Local_R2 : 40 49 0f db.*\n" }
Local_R1.F := Local_R1.F + 1.0; Local_R1.F := Local_R1.F + 1.0;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : ee 87 84 40\n" } -- { dg-output "Local_R1 : ee 87 84 40.*\n" }
Local_R2.F := Local_R2.F + 1.0; Local_R2.F := Local_R2.F + 1.0;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 84 87 ee\n" } -- { dg-output "Local_R2 : 40 84 87 ee.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t5.adb
View File

@ -18,7 +18,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
Local_R2.A(1) := My_R2.A(1) + 1; Local_R2.A(1) := My_R2.A(1) + 1;
@ -28,21 +28,21 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
Local_R1.A(1) := Local_R1.A(1) + 1; Local_R1.A(1) := Local_R1.A(1) + 1;
@ -52,7 +52,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
Local_R2.A(1) := Local_R2.A(1) + 1; Local_R2.A(1) := Local_R2.A(1) + 1;
@ -62,6 +62,6 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t6.adb
View File

@ -18,7 +18,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
Local_R2.A(1) := My_R2.A(1) + 1; Local_R2.A(1) := My_R2.A(1) + 1;
@ -28,21 +28,21 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
Local_R1.A(1) := Local_R1.A(1) + 1; Local_R1.A(1) := Local_R1.A(1) + 1;
@ -52,7 +52,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
Local_R2.A(1) := Local_R2.A(1) + 1; Local_R2.A(1) := Local_R2.A(1) + 1;
@ -62,6 +62,6 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t7.adb
View File

@ -19,7 +19,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
Local_R2.N.C1 := My_R2.N.C1 + 1; Local_R2.N.C1 := My_R2.N.C1 + 1;
@ -29,21 +29,21 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
-- --
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 78 56 34 12 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 12 34 56 78 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
Local_R1.N.C1 := Local_R1.N.C1 + 1; Local_R1.N.C1 := Local_R1.N.C1 + 1;
@ -53,7 +53,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R1 : 79 56 34 12 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
Local_R2.N.C1 := Local_R2.N.C1 + 1; Local_R2.N.C1 := Local_R2.N.C1 + 1;
@ -63,6 +63,6 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R2 : 12 34 56 79 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t8.adb
View File

@ -19,7 +19,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
Local_R2.I := My_R2.I + 1; Local_R2.I := My_R2.I + 1;
Local_R2.N.C1 := My_R2.N.C1 + 1; Local_R2.N.C1 := My_R2.N.C1 + 1;
@ -29,21 +29,21 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
Local_R1 := (I => 16#12345678#, Local_R1 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 78 56 34 12 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2 := (I => 16#12345678#, Local_R2 := (I => 16#12345678#,
N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); N => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 78 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
Local_R1.N.C1 := Local_R1.N.C1 + 1; Local_R1.N.C1 := Local_R1.N.C1 + 1;
@ -53,7 +53,7 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57\n" } -- { dg-output "Local_R1 : 79 56 34 12 00 ab 00 13 00 cd 00 35 00 ef 00 57.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
Local_R2.N.C1 := Local_R2.N.C1 + 1; Local_R2.N.C1 := Local_R2.N.C1 + 1;
@ -63,6 +63,6 @@ begin
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00\n" } -- { dg-output "Local_R2 : 12 34 56 79 13 00 ab 00 35 00 cd 00 57 00 ef 00.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/t9.adb
View File

@ -16,41 +16,41 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 8c 16 22 aa fd 90 10 40\n" } -- { dg-output "Local_R1 : 8c 16 22 aa fd 90 10 40.*\n" }
Local_R2.F := My_R2.F + 1.0; Local_R2.F := My_R2.F + 1.0;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 10 90 fd aa 22 16 8c\n" } -- { dg-output "Local_R2 : 40 10 90 fd aa 22 16 8c.*\n" }
Local_R1.F := Pi; Local_R1.F := Pi;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40\n" } -- { dg-output "Local_R1 : 18 2d 44 54 fb 21 09 40.*\n" }
Local_R2.F := Pi; Local_R2.F := Pi;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18\n" } -- { dg-output "Local_R2 : 40 09 21 fb 54 44 2d 18.*\n" }
Local_R1.F := Local_R1.F + 1.0; Local_R1.F := Local_R1.F + 1.0;
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 8c 16 22 aa fd 90 10 40\n" } -- { dg-output "Local_R1 : 8c 16 22 aa fd 90 10 40.*\n" }
Local_R2.F := Local_R2.F + 1.0; Local_R2.F := Local_R2.F + 1.0;
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 40 10 90 fd aa 22 16 8c\n" } -- { dg-output "Local_R2 : 40 10 90 fd aa 22 16 8c.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/u11.adb
View File

@ -16,29 +16,29 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 01 00 00 00 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 01 00 00 00 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 1, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Local_R2 := (I => 1, A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 00 00 00 01 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 00 00 00 01 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
C1 := Local_R1.A (Integer(Local_R1.I)); C1 := Local_R1.A (Integer(Local_R1.I));
Put_Line ("C1 :" & C1'Img); Put_Line ("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
C1 := Local_R1.A (Integer(Local_R1.I)); C1 := Local_R1.A (Integer(Local_R1.I));
Put_Line ("C1 :" & C1'Img); Put_Line ("C1 :" & C1'Img);
-- { dg-output "C1 : 13434932\n" } -- { dg-output "C1 : 13434932.*\n" }
C2 := Local_R2.A (Integer(Local_R2.I)); C2 := Local_R2.A (Integer(Local_R2.I));
Put_Line ("C2 :" & C2'Img); Put_Line ("C2 :" & C2'Img);
-- { dg-output "C2 : 11206674\n" } -- { dg-output "C2 : 11206674.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
C2 := Local_R2.A (Integer(Local_R2.I)); C2 := Local_R2.A (Integer(Local_R2.I));
Put_Line ("C2 :" & C2'Img); Put_Line ("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/u5.adb
View File

@ -16,29 +16,29 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 01 00 00 00 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R1 : 01 00 00 00 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
Local_R2 := (I => 1, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Local_R2 := (I => 1, A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 00 00 00 01 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R2 : 00 00 00 01 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
C1 := Local_R1.A (Local_R1.I); C1 := Local_R1.A (Local_R1.I);
Put_Line ("C1 :" & C1'Img); Put_Line ("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
C1 := Local_R1.A (Local_R1.I); C1 := Local_R1.A (Local_R1.I);
Put_Line ("C1 :" & C1'Img); Put_Line ("C1 :" & C1'Img);
-- { dg-output "C1 : 13434932\n" } -- { dg-output "C1 : 13434932.*\n" }
C2 := Local_R2.A (Local_R2.I); C2 := Local_R2.A (Local_R2.I);
Put_Line ("C2 :" & C2'Img); Put_Line ("C2 :" & C2'Img);
-- { dg-output "C2 : 11206674\n" } -- { dg-output "C2 : 11206674.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
C2 := Local_R2.A (Local_R2.I); C2 := Local_R2.A (Local_R2.I);
Put_Line ("C2 :" & C2'Img); Put_Line ("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
end; end;

12
gcc/testsuite/gnat.dg/sso/u6.adb
View File

@ -16,29 +16,29 @@ begin
Put ("Local_R1 :"); Put ("Local_R1 :");
Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R1 : 01 00 00 00 00 ab 00 12 00 cd 00 34 00 ef 00 56\n" } -- { dg-output "Local_R1 : 01 00 00 00 00 ab 00 12 00 cd 00 34 00 ef 00 56.*\n" }
Local_R2 := (I => 1, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Local_R2 := (I => 1, A => (16#AB0012#, 16#CD0034#, 16#EF0056#));
Put ("Local_R2 :"); Put ("Local_R2 :");
Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements);
New_Line; New_Line;
-- { dg-output "Local_R2 : 00 00 00 01 12 00 ab 00 34 00 cd 00 56 00 ef 00\n" } -- { dg-output "Local_R2 : 00 00 00 01 12 00 ab 00 34 00 cd 00 56 00 ef 00.*\n" }
C1 := Local_R1.A (Local_R1.I); C1 := Local_R1.A (Local_R1.I);
Put_Line ("C1 :" & C1'Img); Put_Line ("C1 :" & C1'Img);
-- { dg-output "C1 : 11206674\n" } -- { dg-output "C1 : 11206674.*\n" }
Local_R1.I := Local_R1.I + 1; Local_R1.I := Local_R1.I + 1;
C1 := Local_R1.A (Local_R1.I); C1 := Local_R1.A (Local_R1.I);
Put_Line ("C1 :" & C1'Img); Put_Line ("C1 :" & C1'Img);
-- { dg-output "C1 : 13434932\n" } -- { dg-output "C1 : 13434932.*\n" }
C2 := Local_R2.A (Local_R2.I); C2 := Local_R2.A (Local_R2.I);
Put_Line ("C2 :" & C2'Img); Put_Line ("C2 :" & C2'Img);
-- { dg-output "C2 : 11206674\n" } -- { dg-output "C2 : 11206674.*\n" }
Local_R2.I := Local_R2.I + 1; Local_R2.I := Local_R2.I + 1;
C2 := Local_R2.A (Local_R2.I); C2 := Local_R2.A (Local_R2.I);
Put_Line ("C2 :" & C2'Img); Put_Line ("C2 :" & C2'Img);
-- { dg-output "C2 : 13434932\n" } -- { dg-output "C2 : 13434932.*\n" }
end; end;