diff options
| author | Rainer Emrich <rainer@emrich-ebersheim.de> | 2016-01-27 16:53:27 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-01-27 16:53:27 +0000 |
| commit | 27e23cca33be1b3db720e40d4a651d88b65ef79d (patch) | |
| tree | ab2bacceed8ed43c8450ed1ca1692f61e07ecef0 | |
| parent | 05bf54c3c3cc7f13823ae787f21c36d3cee53265 (diff) | |
| download | gcc-27e23cca33be1b3db720e40d4a651d88b65ef79d.zip gcc-27e23cca33be1b3db720e40d4a651d88b65ef79d.tar.gz gcc-27e23cca33be1b3db720e40d4a651d88b65ef79d.tar.bz2 | |
re PR ada/69488 (tests in gnat/sso give a lot of spurious failures)
PR ada/69488
* gnat.dg/sso/*.adb: Robustify dg-output directives.
From-SVN: r232883
58 files changed, 354 insertions, 349 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 40aa9c3..94659a2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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> PR c++/69379 diff --git a/gcc/testsuite/gnat.dg/sso/conv1.adb b/gcc/testsuite/gnat.dg/sso/conv1.adb index 8cdb612..6c9ba94 100644 --- a/gcc/testsuite/gnat.dg/sso/conv1.adb +++ b/gcc/testsuite/gnat.dg/sso/conv1.adb @@ -36,15 +36,15 @@ begin X_L.S := 12345; X_L.C := 'a'; 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.C := 'b'; 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); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p1.adb b/gcc/testsuite/gnat.dg/sso/p1.adb index 514fa7e..af50301 100644 --- a/gcc/testsuite/gnat.dg/sso/p1.adb +++ b/gcc/testsuite/gnat.dg/sso/p1.adb @@ -13,50 +13,50 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "My_R1 : 78 56 34 12\n" } + -- { dg-output "My_R1 : 78 56 34 12.*\n" } Put ("My_R2 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "My_R2 : 12 34 56 78\n" } + -- { dg-output "My_R2 : 12 34 56 78.*\n" } Local_R1 := My_R1; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R1 : 78 56 34 12\n" } + -- { dg-output "Local_R1 : 78 56 34 12.*\n" } Local_R2 := My_R2; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 12 34 56 78\n" } + -- { dg-output "Local_R2 : 12 34 56 78.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/p10.adb b/gcc/testsuite/gnat.dg/sso/p10.adb index 067a57e..bdda767 100644 --- a/gcc/testsuite/gnat.dg/sso/p10.adb +++ b/gcc/testsuite/gnat.dg/sso/p10.adb @@ -14,50 +14,50 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "My_R1 : 78 56 34 12\n" } + -- { dg-output "My_R1 : 78 56 34 12.*\n" } Put ("My_R2 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "My_R2 : 12 34 56 78\n" } + -- { dg-output "My_R2 : 12 34 56 78.*\n" } Local_R1 := My_R1; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R1 : 78 56 34 12\n" } + -- { dg-output "Local_R1 : 78 56 34 12.*\n" } Local_R2 := My_R2; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 12 34 56 78\n" } + -- { dg-output "Local_R2 : 12 34 56 78.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/p11.adb b/gcc/testsuite/gnat.dg/sso/p11.adb index c6f6166..9d1abff 100644 --- a/gcc/testsuite/gnat.dg/sso/p11.adb +++ b/gcc/testsuite/gnat.dg/sso/p11.adb @@ -13,38 +13,38 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.A(1) := Local_R2.A(1); @@ -54,7 +54,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := Local_R1.A(1); @@ -64,5 +64,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p12.adb b/gcc/testsuite/gnat.dg/sso/p12.adb index 03e5e65..1e94bef 100644 --- a/gcc/testsuite/gnat.dg/sso/p12.adb +++ b/gcc/testsuite/gnat.dg/sso/p12.adb @@ -15,72 +15,72 @@ begin Put ("My_A1 :"); Dump (My_A1'Address, Arr1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_A11'Address, Arr11'Max_Size_In_Storage_Elements); 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 :"); Dump (My_A2'Address, Arr2'Max_Size_In_Storage_Elements); 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 :"); Dump (My_A22'Address, Arr22'Max_Size_In_Storage_Elements); 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; Put ("Local_A1 :"); Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements); 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; Put ("Local_A11 :"); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); 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; Put ("Local_A2 :"); Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements); 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; Put ("Local_A22 :"); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); 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#); Put ("Local_A1 :"); Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements); 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#), 2 => (16#AB0012#, 16#CD0034#)); Put ("Local_A11 :"); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); 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#); Put ("Local_A2 :"); Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements); 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#), 2 => (16#AB0012#, 16#CD0034#)); Put ("Local_A22 :"); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); 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(2) := Local_A2(2); @@ -89,7 +89,7 @@ begin Put ("Local_A1 :"); Dump (Local_A1'Address, Arr1'Max_Size_In_Storage_Elements); 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,2) := Local_A22(1,2); @@ -99,7 +99,7 @@ begin Put ("Local_A11 :"); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); 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(2) := Local_A1(2); @@ -108,7 +108,7 @@ begin Put ("Local_A2 :"); Dump (Local_A2'Address, Arr2'Max_Size_In_Storage_Elements); 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,2) := Local_A11(1,2); @@ -118,5 +118,5 @@ begin Put ("Local_A22 :"); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p13.adb b/gcc/testsuite/gnat.dg/sso/p13.adb index 49db111..b84a42c 100644 --- a/gcc/testsuite/gnat.dg/sso/p13.adb +++ b/gcc/testsuite/gnat.dg/sso/p13.adb @@ -14,50 +14,50 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p2.adb b/gcc/testsuite/gnat.dg/sso/p2.adb index 5312e0a..8ed69bf 100644 --- a/gcc/testsuite/gnat.dg/sso/p2.adb +++ b/gcc/testsuite/gnat.dg/sso/p2.adb @@ -13,24 +13,24 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -40,7 +40,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -50,7 +50,7 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.I := Local_R2.I; @@ -63,7 +63,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.I := Local_R1.I; @@ -76,5 +76,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p3.adb b/gcc/testsuite/gnat.dg/sso/p3.adb index c138f24..c3bb699 100644 --- a/gcc/testsuite/gnat.dg/sso/p3.adb +++ b/gcc/testsuite/gnat.dg/sso/p3.adb @@ -13,24 +13,24 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -40,7 +40,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -50,7 +50,7 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.I := Local_R2.I; @@ -63,7 +63,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.I := Local_R1.I; @@ -76,5 +76,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p4.adb b/gcc/testsuite/gnat.dg/sso/p4.adb index a22c044..b710191 100644 --- a/gcc/testsuite/gnat.dg/sso/p4.adb +++ b/gcc/testsuite/gnat.dg/sso/p4.adb @@ -14,50 +14,50 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "My_R1 : db 0f 49 40\n" } + -- { dg-output "My_R1 : db 0f 49 40.*\n" } Put ("My_R2 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "My_R2 : 40 49 0f db\n" } + -- { dg-output "My_R2 : 40 49 0f db.*\n" } Local_R1 := My_R1; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R1 : db 0f 49 40\n" } + -- { dg-output "Local_R1 : db 0f 49 40.*\n" } Local_R2 := My_R2; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 40 49 0f db\n" } + -- { dg-output "Local_R2 : 40 49 0f db.*\n" } Local_R1.F := Pi; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R1 : db 0f 49 40\n" } + -- { dg-output "Local_R1 : db 0f 49 40.*\n" } Local_R2.F := Pi; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 40 49 0f db\n" } + -- { dg-output "Local_R2 : 40 49 0f db.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/p5.adb b/gcc/testsuite/gnat.dg/sso/p5.adb index 6a692ae..a1036ef 100644 --- a/gcc/testsuite/gnat.dg/sso/p5.adb +++ b/gcc/testsuite/gnat.dg/sso/p5.adb @@ -13,38 +13,38 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.A(1) := Local_R2.A(1); @@ -54,7 +54,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := Local_R1.A(1); @@ -64,5 +64,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p6.adb b/gcc/testsuite/gnat.dg/sso/p6.adb index 35c1b1a..9a0feda 100644 --- a/gcc/testsuite/gnat.dg/sso/p6.adb +++ b/gcc/testsuite/gnat.dg/sso/p6.adb @@ -13,33 +13,33 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.A(1) := Local_R2.A(1); Local_R1.A(2) := Local_R2.A(2); @@ -48,7 +48,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := Local_R1.A(1); Local_R2.A(2) := Local_R1.A(2); @@ -57,5 +57,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p7.adb b/gcc/testsuite/gnat.dg/sso/p7.adb index 01354be..5e9a640 100644 --- a/gcc/testsuite/gnat.dg/sso/p7.adb +++ b/gcc/testsuite/gnat.dg/sso/p7.adb @@ -13,33 +13,33 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R2.N.C1; Local_R1.N.C2 := Local_R2.N.C2; @@ -48,7 +48,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R1.N.C1; Local_R2.N.C2 := Local_R1.N.C2; @@ -57,5 +57,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p8.adb b/gcc/testsuite/gnat.dg/sso/p8.adb index e6f80e4..251e43f 100644 --- a/gcc/testsuite/gnat.dg/sso/p8.adb +++ b/gcc/testsuite/gnat.dg/sso/p8.adb @@ -13,33 +13,33 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R2.N.C1; Local_R1.N.C2 := Local_R2.N.C2; @@ -48,7 +48,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R1.N.C1; Local_R2.N.C2 := Local_R1.N.C2; @@ -57,5 +57,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/p9.adb b/gcc/testsuite/gnat.dg/sso/p9.adb index 1aab12b..f826f0d 100644 --- a/gcc/testsuite/gnat.dg/sso/p9.adb +++ b/gcc/testsuite/gnat.dg/sso/p9.adb @@ -14,50 +14,50 @@ begin Put ("My_R1 :"); Dump (My_R1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (My_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/q1.adb b/gcc/testsuite/gnat.dg/sso/q1.adb index 6c8303c..38fc06a 100644 --- a/gcc/testsuite/gnat.dg/sso/q1.adb +++ b/gcc/testsuite/gnat.dg/sso/q1.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "A1 : 78 56 34 12\n" } + -- { dg-output "A1 : 78 56 34 12.*\n" } Put ("B1 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "B1 : 78 56 34 12\n" } + -- { dg-output "B1 : 78 56 34 12.*\n" } Put ("A2 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "A2 : 12 34 56 78\n" } + -- { dg-output "A2 : 12 34 56 78.*\n" } Put ("B2 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "B2 : 12 34 56 78\n" } + -- { dg-output "B2 : 12 34 56 78.*\n" } if A1.I /= B1.I then raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q10.adb b/gcc/testsuite/gnat.dg/sso/q10.adb index 94d2152..a93d1f6 100644 --- a/gcc/testsuite/gnat.dg/sso/q10.adb +++ b/gcc/testsuite/gnat.dg/sso/q10.adb @@ -17,22 +17,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "A1 : 78 56 34 12\n" } + -- { dg-output "A1 : 78 56 34 12.*\n" } Put ("B1 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "B1 : 78 56 34 12\n" } + -- { dg-output "B1 : 78 56 34 12.*\n" } Put ("A2 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "A2 : 12 34 56 78\n" } + -- { dg-output "A2 : 12 34 56 78.*\n" } Put ("B2 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "B2 : 12 34 56 78\n" } + -- { dg-output "B2 : 12 34 56 78.*\n" } if A1.I /= B1.I then raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q11.adb b/gcc/testsuite/gnat.dg/sso/q11.adb index 84951de3..22ac557 100644 --- a/gcc/testsuite/gnat.dg/sso/q11.adb +++ b/gcc/testsuite/gnat.dg/sso/q11.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q12.adb b/gcc/testsuite/gnat.dg/sso/q12.adb index 2018582..2a07da9 100644 --- a/gcc/testsuite/gnat.dg/sso/q12.adb +++ b/gcc/testsuite/gnat.dg/sso/q12.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, Arr1'Max_Size_In_Storage_Elements); 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 :"); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, Arr2'Max_Size_In_Storage_Elements); 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 :"); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q13.adb b/gcc/testsuite/gnat.dg/sso/q13.adb index e07530f..05b8e56 100644 --- a/gcc/testsuite/gnat.dg/sso/q13.adb +++ b/gcc/testsuite/gnat.dg/sso/q13.adb @@ -17,22 +17,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q2.adb b/gcc/testsuite/gnat.dg/sso/q2.adb index be11fe1..1147f1a 100644 --- a/gcc/testsuite/gnat.dg/sso/q2.adb +++ b/gcc/testsuite/gnat.dg/sso/q2.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q3.adb b/gcc/testsuite/gnat.dg/sso/q3.adb index 383a88b..df7dfc1 100644 --- a/gcc/testsuite/gnat.dg/sso/q3.adb +++ b/gcc/testsuite/gnat.dg/sso/q3.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q4.adb b/gcc/testsuite/gnat.dg/sso/q4.adb index 0cef27d..4c2102f 100644 --- a/gcc/testsuite/gnat.dg/sso/q4.adb +++ b/gcc/testsuite/gnat.dg/sso/q4.adb @@ -17,22 +17,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "A1 : db 0f 49 40\n" } + -- { dg-output "A1 : db 0f 49 40.*\n" } Put ("B1 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "B1 : db 0f 49 40\n" } + -- { dg-output "B1 : db 0f 49 40.*\n" } Put ("A2 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "A2 : 40 49 0f db\n" } + -- { dg-output "A2 : 40 49 0f db.*\n" } Put ("B2 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "B2 : 40 49 0f db\n" } + -- { dg-output "B2 : 40 49 0f db.*\n" } if A1.F /= B1.F then raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q5.adb b/gcc/testsuite/gnat.dg/sso/q5.adb index 965d145..0cb2df7 100644 --- a/gcc/testsuite/gnat.dg/sso/q5.adb +++ b/gcc/testsuite/gnat.dg/sso/q5.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q6.adb b/gcc/testsuite/gnat.dg/sso/q6.adb index f90b32f..85c22a1 100644 --- a/gcc/testsuite/gnat.dg/sso/q6.adb +++ b/gcc/testsuite/gnat.dg/sso/q6.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q7.adb b/gcc/testsuite/gnat.dg/sso/q7.adb index 72ab610..9eaaa5d 100644 --- a/gcc/testsuite/gnat.dg/sso/q7.adb +++ b/gcc/testsuite/gnat.dg/sso/q7.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q8.adb b/gcc/testsuite/gnat.dg/sso/q8.adb index 7931179..3413bde 100644 --- a/gcc/testsuite/gnat.dg/sso/q8.adb +++ b/gcc/testsuite/gnat.dg/sso/q8.adb @@ -16,22 +16,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/q9.adb b/gcc/testsuite/gnat.dg/sso/q9.adb index f5d4a55..a71d0e1 100644 --- a/gcc/testsuite/gnat.dg/sso/q9.adb +++ b/gcc/testsuite/gnat.dg/sso/q9.adb @@ -17,22 +17,22 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (B1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R2'Max_Size_In_Storage_Elements); 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 :"); Dump (B2'Address, R2'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/r11.adb b/gcc/testsuite/gnat.dg/sso/r11.adb index e472078..ad8226e 100644 --- a/gcc/testsuite/gnat.dg/sso/r11.adb +++ b/gcc/testsuite/gnat.dg/sso/r11.adb @@ -40,12 +40,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/r12.adb b/gcc/testsuite/gnat.dg/sso/r12.adb index b6e2cf7..e555bc4 100644 --- a/gcc/testsuite/gnat.dg/sso/r12.adb +++ b/gcc/testsuite/gnat.dg/sso/r12.adb @@ -68,22 +68,22 @@ begin Put ("A1 :"); Dump (A1'Address, Arr1'Max_Size_In_Storage_Elements); 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 :"); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, Arr2'Max_Size_In_Storage_Elements); 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 :"); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/r3.adb b/gcc/testsuite/gnat.dg/sso/r3.adb index 7461096..a0db79b 100644 --- a/gcc/testsuite/gnat.dg/sso/r3.adb +++ b/gcc/testsuite/gnat.dg/sso/r3.adb @@ -40,12 +40,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/r5.adb b/gcc/testsuite/gnat.dg/sso/r5.adb index 6dcb87f..b77aa62 100644 --- a/gcc/testsuite/gnat.dg/sso/r5.adb +++ b/gcc/testsuite/gnat.dg/sso/r5.adb @@ -40,12 +40,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/r6.adb b/gcc/testsuite/gnat.dg/sso/r6.adb index 5ef5989..a1e85b3 100644 --- a/gcc/testsuite/gnat.dg/sso/r6.adb +++ b/gcc/testsuite/gnat.dg/sso/r6.adb @@ -40,12 +40,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/r7.adb b/gcc/testsuite/gnat.dg/sso/r7.adb index 58a015b..e9d21af 100644 --- a/gcc/testsuite/gnat.dg/sso/r7.adb +++ b/gcc/testsuite/gnat.dg/sso/r7.adb @@ -40,12 +40,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/r8.adb b/gcc/testsuite/gnat.dg/sso/r8.adb index cbb1d5b..9c7f474 100644 --- a/gcc/testsuite/gnat.dg/sso/r8.adb +++ b/gcc/testsuite/gnat.dg/sso/r8.adb @@ -40,12 +40,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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 raise Program_Error; diff --git a/gcc/testsuite/gnat.dg/sso/s11.adb b/gcc/testsuite/gnat.dg/sso/s11.adb index 6fb715f..308afc6 100644 --- a/gcc/testsuite/gnat.dg/sso/s11.adb +++ b/gcc/testsuite/gnat.dg/sso/s11.adb @@ -21,12 +21,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; C1 := AA1(1); @@ -34,13 +34,13 @@ begin C3 := AA1(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } AA1(1) := C1; AA1(2) := C2; @@ -53,13 +53,13 @@ begin C3 := AA2(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } AA2(1) := C1; AA2(2) := C2; @@ -69,10 +69,10 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/s12.adb b/gcc/testsuite/gnat.dg/sso/s12.adb index 1bc624e..f9c4ade 100644 --- a/gcc/testsuite/gnat.dg/sso/s12.adb +++ b/gcc/testsuite/gnat.dg/sso/s12.adb @@ -20,12 +20,12 @@ begin Put ("A11 :"); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); 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 :"); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); 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)); C1 := A1(1); @@ -33,13 +33,13 @@ begin C3 := A1(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 11206674\n" } + -- { dg-output "C3 : 11206674.*\n" } A1(1) := C1; A1(2) := C2; @@ -52,13 +52,13 @@ begin C3 := A2(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 11206674\n" } + -- { dg-output "C3 : 11206674.*\n" } A2(1) := C1; A2(2) := C2; @@ -68,10 +68,10 @@ begin Put ("A11 :"); Dump (A11'Address, Arr11'Max_Size_In_Storage_Elements); 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 :"); Dump (A22'Address, Arr22'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/s3.adb b/gcc/testsuite/gnat.dg/sso/s3.adb index 833525d..4a934f5 100644 --- a/gcc/testsuite/gnat.dg/sso/s3.adb +++ b/gcc/testsuite/gnat.dg/sso/s3.adb @@ -21,12 +21,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; C1 := N1.C1; @@ -34,13 +34,13 @@ begin C3 := N1.C3; Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 171\n" } + -- { dg-output "C1 : 171.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 205\n" } + -- { dg-output "C2 : 205.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 239\n" } + -- { dg-output "C3 : 239.*\n" } N1.C1 := C1; N1.C2 := C2; @@ -53,13 +53,13 @@ begin C3 := N2.C3; Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 171\n" } + -- { dg-output "C1 : 171.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 205\n" } + -- { dg-output "C2 : 205.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 239\n" } + -- { dg-output "C3 : 239.*\n" } N2.C1 := C1; N2.C2 := C2; @@ -69,11 +69,11 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/s5.adb b/gcc/testsuite/gnat.dg/sso/s5.adb index dc3b301..b17b4db 100644 --- a/gcc/testsuite/gnat.dg/sso/s5.adb +++ b/gcc/testsuite/gnat.dg/sso/s5.adb @@ -21,12 +21,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; C1 := AA1(1); @@ -34,13 +34,13 @@ begin C3 := AA1(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } AA1(1) := C1; AA1(2) := C2; @@ -53,13 +53,13 @@ begin C3 := AA2(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } AA2(1) := C1; AA2(2) := C2; @@ -69,10 +69,10 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/s6.adb b/gcc/testsuite/gnat.dg/sso/s6.adb index 48d769b..19db4a6 100644 --- a/gcc/testsuite/gnat.dg/sso/s6.adb +++ b/gcc/testsuite/gnat.dg/sso/s6.adb @@ -21,12 +21,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; C1 := AA1(1); @@ -34,13 +34,13 @@ begin C3 := AA1(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } AA1(1) := C1; AA1(2) := C2; @@ -53,13 +53,13 @@ begin C3 := AA2(3); Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } AA2(1) := C1; AA2(2) := C2; @@ -69,11 +69,11 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/s7.adb b/gcc/testsuite/gnat.dg/sso/s7.adb index f4725d7..398a12b 100644 --- a/gcc/testsuite/gnat.dg/sso/s7.adb +++ b/gcc/testsuite/gnat.dg/sso/s7.adb @@ -21,12 +21,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; C1 := N1.C1; @@ -34,13 +34,13 @@ begin C3 := N1.C3; Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } N1.C1 := C1; N1.C2 := C2; @@ -53,13 +53,13 @@ begin C3 := N2.C3; Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } N2.C1 := C1; N2.C2 := C2; @@ -69,11 +69,11 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/s8.adb b/gcc/testsuite/gnat.dg/sso/s8.adb index 0545932..abb81d9 100644 --- a/gcc/testsuite/gnat.dg/sso/s8.adb +++ b/gcc/testsuite/gnat.dg/sso/s8.adb @@ -21,12 +21,12 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; C1 := N1.C1; @@ -34,13 +34,13 @@ begin C3 := N1.C3; Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } N1.C1 := C1; N1.C2 := C2; @@ -53,13 +53,13 @@ begin C3 := N2.C3; Put_Line("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Put_Line("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } Put_Line("C3 :" & C3'Img); - -- { dg-output "C3 : 15663190\n" } + -- { dg-output "C3 : 15663190.*\n" } N2.C1 := C1; N2.C2 := C2; @@ -69,11 +69,11 @@ begin Put ("A1 :"); Dump (A1'Address, R1'Max_Size_In_Storage_Elements); 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 :"); Dump (A2'Address, R1'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t1.adb b/gcc/testsuite/gnat.dg/sso/t1.adb index dd28947..894c1bf 100644 --- a/gcc/testsuite/gnat.dg/sso/t1.adb +++ b/gcc/testsuite/gnat.dg/sso/t1.adb @@ -15,41 +15,41 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 12 34 56 79\n" } + -- { dg-output "Local_R2 : 12 34 56 79.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/t10.adb b/gcc/testsuite/gnat.dg/sso/t10.adb index 152268a..9c0de76 100644 --- a/gcc/testsuite/gnat.dg/sso/t10.adb +++ b/gcc/testsuite/gnat.dg/sso/t10.adb @@ -16,41 +16,41 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 12 34 56 79\n" } + -- { dg-output "Local_R2 : 12 34 56 79.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/t11.adb b/gcc/testsuite/gnat.dg/sso/t11.adb index b0c3ff4..7482eb9 100644 --- a/gcc/testsuite/gnat.dg/sso/t11.adb +++ b/gcc/testsuite/gnat.dg/sso/t11.adb @@ -18,7 +18,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := My_R2.A(1) + 1; @@ -28,21 +28,21 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.A(1) := Local_R1.A(1) + 1; @@ -52,7 +52,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := Local_R2.A(1) + 1; @@ -62,6 +62,6 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t12.adb b/gcc/testsuite/gnat.dg/sso/t12.adb index b620460..236d187 100644 --- a/gcc/testsuite/gnat.dg/sso/t12.adb +++ b/gcc/testsuite/gnat.dg/sso/t12.adb @@ -18,7 +18,7 @@ begin Put ("Local_A11 :"); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); 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,2) := My_A22(1,2) + 1; @@ -28,21 +28,21 @@ begin Put ("Local_A22 :"); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); 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#), 2 => (16#AB0012#, 16#CD0034#)); Put ("Local_A11 :"); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); 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#), 2 => (16#AB0012#, 16#CD0034#)); Put ("Local_A22 :"); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); 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,2) := Local_A11(1,2) + 1; @@ -52,7 +52,7 @@ begin Put ("Local_A11 :"); Dump (Local_A11'Address, Arr11'Max_Size_In_Storage_Elements); 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,2) := Local_A22(1,2) + 1; @@ -62,5 +62,5 @@ begin Put ("Local_A22 :"); Dump (Local_A22'Address, Arr22'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t13.adb b/gcc/testsuite/gnat.dg/sso/t13.adb index e00371f..2e488d8 100644 --- a/gcc/testsuite/gnat.dg/sso/t13.adb +++ b/gcc/testsuite/gnat.dg/sso/t13.adb @@ -16,41 +16,41 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t2.adb b/gcc/testsuite/gnat.dg/sso/t2.adb index 04ce775..df14ae5 100644 --- a/gcc/testsuite/gnat.dg/sso/t2.adb +++ b/gcc/testsuite/gnat.dg/sso/t2.adb @@ -21,7 +21,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.I := My_R2.I + 1; @@ -34,7 +34,7 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -44,7 +44,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -54,7 +54,7 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.I := Local_R1.I + 1; @@ -67,7 +67,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.I := Local_R2.I + 1; @@ -80,5 +80,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t3.adb b/gcc/testsuite/gnat.dg/sso/t3.adb index 3ecbf68..a53e9cc 100644 --- a/gcc/testsuite/gnat.dg/sso/t3.adb +++ b/gcc/testsuite/gnat.dg/sso/t3.adb @@ -21,7 +21,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.I := My_R2.I + 1; @@ -34,7 +34,7 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -44,7 +44,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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, I => 16#12345678#, @@ -54,7 +54,7 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.I := Local_R1.I + 1; @@ -67,7 +67,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.I := Local_R2.I + 1; @@ -80,5 +80,5 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t4.adb b/gcc/testsuite/gnat.dg/sso/t4.adb index ecaee90..734b6a6 100644 --- a/gcc/testsuite/gnat.dg/sso/t4.adb +++ b/gcc/testsuite/gnat.dg/sso/t4.adb @@ -16,41 +16,41 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 40 84 87 ee\n" } + -- { dg-output "Local_R2 : 40 84 87 ee.*\n" } Local_R1.F := Pi; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R1 : db 0f 49 40\n" } + -- { dg-output "Local_R1 : db 0f 49 40.*\n" } Local_R2.F := Pi; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); New_Line; - -- { dg-output "Local_R2 : 40 84 87 ee\n" } + -- { dg-output "Local_R2 : 40 84 87 ee.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/t5.adb b/gcc/testsuite/gnat.dg/sso/t5.adb index c737bf3..605bd71 100644 --- a/gcc/testsuite/gnat.dg/sso/t5.adb +++ b/gcc/testsuite/gnat.dg/sso/t5.adb @@ -18,7 +18,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := My_R2.A(1) + 1; @@ -28,21 +28,21 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.A(1) := Local_R1.A(1) + 1; @@ -52,7 +52,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := Local_R2.A(1) + 1; @@ -62,6 +62,6 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t6.adb b/gcc/testsuite/gnat.dg/sso/t6.adb index 49661cb..fa70b10 100644 --- a/gcc/testsuite/gnat.dg/sso/t6.adb +++ b/gcc/testsuite/gnat.dg/sso/t6.adb @@ -18,7 +18,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := My_R2.A(1) + 1; @@ -28,21 +28,21 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.A(1) := Local_R1.A(1) + 1; @@ -52,7 +52,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.A(1) := Local_R2.A(1) + 1; @@ -62,6 +62,6 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t7.adb b/gcc/testsuite/gnat.dg/sso/t7.adb index da51bd5..4ad8d41 100644 --- a/gcc/testsuite/gnat.dg/sso/t7.adb +++ b/gcc/testsuite/gnat.dg/sso/t7.adb @@ -19,7 +19,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.N.C1 := My_R2.N.C1 + 1; @@ -29,21 +29,21 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R1.N.C1 + 1; @@ -53,7 +53,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R2.N.C1 + 1; @@ -63,6 +63,6 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t8.adb b/gcc/testsuite/gnat.dg/sso/t8.adb index a9976a6..82d8acd 100644 --- a/gcc/testsuite/gnat.dg/sso/t8.adb +++ b/gcc/testsuite/gnat.dg/sso/t8.adb @@ -19,7 +19,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.N.C1 := My_R2.N.C1 + 1; @@ -29,21 +29,21 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#, N => (16#AB0012#, 16#CD0034#, 16#EF0056#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R1.N.C1 + 1; @@ -53,7 +53,7 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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.N.C1 := Local_R2.N.C1 + 1; @@ -63,6 +63,6 @@ begin Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/t9.adb b/gcc/testsuite/gnat.dg/sso/t9.adb index e38cabc..f55df6e 100644 --- a/gcc/testsuite/gnat.dg/sso/t9.adb +++ b/gcc/testsuite/gnat.dg/sso/t9.adb @@ -16,41 +16,41 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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; Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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; diff --git a/gcc/testsuite/gnat.dg/sso/u11.adb b/gcc/testsuite/gnat.dg/sso/u11.adb index 9f7c770..e8a05a9 100644 --- a/gcc/testsuite/gnat.dg/sso/u11.adb +++ b/gcc/testsuite/gnat.dg/sso/u11.adb @@ -16,29 +16,29 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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)); Put_Line ("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Local_R1.I := Local_R1.I + 1; C1 := Local_R1.A (Integer(Local_R1.I)); Put_Line ("C1 :" & C1'Img); - -- { dg-output "C1 : 13434932\n" } + -- { dg-output "C1 : 13434932.*\n" } C2 := Local_R2.A (Integer(Local_R2.I)); Put_Line ("C2 :" & C2'Img); - -- { dg-output "C2 : 11206674\n" } + -- { dg-output "C2 : 11206674.*\n" } Local_R2.I := Local_R2.I + 1; C2 := Local_R2.A (Integer(Local_R2.I)); Put_Line ("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/u5.adb b/gcc/testsuite/gnat.dg/sso/u5.adb index 5d9d4cc..d2aef4b 100644 --- a/gcc/testsuite/gnat.dg/sso/u5.adb +++ b/gcc/testsuite/gnat.dg/sso/u5.adb @@ -16,29 +16,29 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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); Put_Line ("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Local_R1.I := Local_R1.I + 1; C1 := Local_R1.A (Local_R1.I); Put_Line ("C1 :" & C1'Img); - -- { dg-output "C1 : 13434932\n" } + -- { dg-output "C1 : 13434932.*\n" } C2 := Local_R2.A (Local_R2.I); Put_Line ("C2 :" & C2'Img); - -- { dg-output "C2 : 11206674\n" } + -- { dg-output "C2 : 11206674.*\n" } Local_R2.I := Local_R2.I + 1; C2 := Local_R2.A (Local_R2.I); Put_Line ("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } end; diff --git a/gcc/testsuite/gnat.dg/sso/u6.adb b/gcc/testsuite/gnat.dg/sso/u6.adb index ca8a0d4..b452ded 100644 --- a/gcc/testsuite/gnat.dg/sso/u6.adb +++ b/gcc/testsuite/gnat.dg/sso/u6.adb @@ -16,29 +16,29 @@ begin Put ("Local_R1 :"); Dump (Local_R1'Address, R1'Max_Size_In_Storage_Elements); 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#)); Put ("Local_R2 :"); Dump (Local_R2'Address, R2'Max_Size_In_Storage_Elements); 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); Put_Line ("C1 :" & C1'Img); - -- { dg-output "C1 : 11206674\n" } + -- { dg-output "C1 : 11206674.*\n" } Local_R1.I := Local_R1.I + 1; C1 := Local_R1.A (Local_R1.I); Put_Line ("C1 :" & C1'Img); - -- { dg-output "C1 : 13434932\n" } + -- { dg-output "C1 : 13434932.*\n" } C2 := Local_R2.A (Local_R2.I); Put_Line ("C2 :" & C2'Img); - -- { dg-output "C2 : 11206674\n" } + -- { dg-output "C2 : 11206674.*\n" } Local_R2.I := Local_R2.I + 1; C2 := Local_R2.A (Local_R2.I); Put_Line ("C2 :" & C2'Img); - -- { dg-output "C2 : 13434932\n" } + -- { dg-output "C2 : 13434932.*\n" } end; |