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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 40aa9c339176a0ccefe1b85ad313a04d79340f77..94659a28fe56a5388521cd34d150de445be00051 100644 (file)
--- 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 8cdb612d0a3d3f29f65ec0f5bd4b53d53c335f3e..6c9ba949dbd99405009150d9ebcbc0524272b1d2 100644 (file)
--- 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 514fa7eeda34d41d3b1cc201f98c7de79471a33f..af5030171fa1af3d6066da391b8052b32afb0024 100644 (file)
--- 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 067a57ece317384efd0780907fdfa63e3db62253..bdda767ece7430cbbb783e7ea9a0dfbbb6759f0b 100644 (file)
--- 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 c6f6166473e4bfa2e1ae063c4d0c5170ba934bf0..9d1abff69104eb3106076d6729b182c952f185e7 100644 (file)
--- 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 03e5e65e9f60294d491c592b9f4c67718b6644f4..1e94befc0dbecea958088bc6673517a7bb9106d6 100644 (file)
--- 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 49db1114c68e3350fe880ac23dfb1d679e774e4e..b84a42c8f10471b3a0d3473ad47d4d6a805c2afe 100644 (file)
--- 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 5312e0aac342a8ea4de0a556893a8feed15dd2e8..8ed69bfe66971ec18d22a0775cd989358696b294 100644 (file)
--- 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 c138f2416d9d4ad1b65ac0b0e3f301432eceba77..c3bb6992b0873cb44d266f189218f8f8dd8f0c60 100644 (file)
--- 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 a22c0449e08080439755f8b3ea9f56c2e7362c7a..b710191c6765233e3e975de708c4e8bdd168e6ca 100644 (file)
--- 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 6a692ae53644c7c8d906b0dfc6fff573ea42bdd6..a1036efb8bcefd12579cfea8fd8df28bccd76407 100644 (file)
--- 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 35c1b1a201e4c863339ce7827744d3f202f9aa78..9a0fedaed868265c6ad043e3cea9f7af8277bd78 100644 (file)
--- 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 01354befbab1a4bca91b544ad10d99d15901d942..5e9a64057697de463528501b8b39f2ecd956618f 100644 (file)
--- 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 e6f80e4029c65c1137cc6dcd64f69b99c963721c..251e43f422f937a185fa8a4fabdf518f5033508c 100644 (file)
--- 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 1aab12b604b9ac4bc4ca21242831f4b4be4e85c7..f826f0d9f5397b458a6ab2972b61e0570bc7d632 100644 (file)
--- 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 6c8303cf981af2d8816d85dbf0ac1665020b9580..38fc06a252e91a3a4b2171d99afbec31dfcbad13 100644 (file)
--- 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 94d21522d0ddc937c8f0d3c4e49e3ca634dba988..a93d1f68cb83e7c42f7ebc3f6fbbad5672a73067 100644 (file)
--- 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 84951de3019bcf08dc8f4d50fa5bb2370820cbbb..22ac5578dd71fd751dd0590e157f5dd10dbebe91 100644 (file)
--- 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 2018582607f377a39c048e2019f255e0480ed445..2a07da9d5f8e417d5c274b5d1253baa3b4e3b79b 100644 (file)
--- 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 e07530fb2aac34be49184d905d13d932552846c9..05b8e56ee14c2544129c93825ddb0eab0a3145a6 100644 (file)
--- 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 be11fe15294b7aaab04b81fd8152ceef27573181..1147f1a6725d2a54274b92a0b023332fd857197b 100644 (file)
--- 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 383a88b6125d7dae501ff0f789d22c2ac46c1189..df7dfc10290716a46b38ebf969e66241c97b797e 100644 (file)
--- 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 0cef27de2193b919facc52f52ab2f8fcff8b538b..4c2102ff6a8ccb5795f85bd7f631168f50573a69 100644 (file)
--- 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 965d145f680860313959102ec9d670949b3dcd86..0cb2df79984bfb6a3d3ed4abc705fb0f9cc4a6d9 100644 (file)
--- 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 f90b32f623db5243d58222b355bc3b816bfdcfdb..85c22a1c2e85cbe4462fbad0ffbb930b3f9783c0 100644 (file)
--- 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 72ab6106ad582e631be2daa3cd573cb92e7dbb13..9eaaa5da2deda167bde8a27b1b28a81493f2e9b4 100644 (file)
--- 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 7931179d6f17eb6a0f77d04cfe9d35f8482ca454..3413bde4e37f466419c1a8b2571784ed3b287435 100644 (file)
--- 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 f5d4a559a426cfd5404cbc4b2a581964cc442be1..a71d0e1d9285a1926384911bb6e988faba568eae 100644 (file)
--- 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 e472078c5c655c15864d9b4e2e8828039fc9eb29..ad8226ee5699d7cb9b19286c6862165849115c9e 100644 (file)
--- 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 b6e2cf76189015bc53796735e331e8ec87a5a1eb..e555bc42a205ec909a7190d31edfd9608941a418 100644 (file)
--- 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 746109688c90ca9018265b8bcbdb59f8f2c14b50..a0db79bd43962eb563ad7417d918a7f78f19acca 100644 (file)
--- 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 6dcb87f8b6e69719e7ff80d86eef992dedae1772..b77aa622f2d884c213070d65a86fbb0cb301eec1 100644 (file)
--- 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 5ef59893552ed98f4a359feb041e45ef1890c89d..a1e85b3badd7466fae426b7e713746356f7430dc 100644 (file)
--- 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 58a015beb157c5994e9001b01ebd28640d0b876c..e9d21af5afe9bb58b2a7c09a2815d409d378a5e1 100644 (file)
--- 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 cbb1d5b617df884d0c02a8cfa9450ebd82ca8198..9c7f474e70075cd3c8fe6019741df8a9886ac40e 100644 (file)
--- 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 6fb715f8a01f7700ee5d6adc4c9700d2114c9979..308afc6699204c0d08191c681b2a2edff2e1489b 100644 (file)
--- 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 1bc624e34684ee0db38548b6af14fb1161626396..f9c4adeb71b5b82b8d0a0ad3216380a7d40fa557 100644 (file)
--- 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 833525d333e98fabc674d23c0882fef1d96bc980..4a934f5881cc10c2e3b25646bef1999c970daff3 100644 (file)
--- 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 dc3b30115376c3012cb8c320daa864d2107f5066..b17b4db9b4132ca58b70766dda65e6c4f2b4ea7d 100644 (file)
--- 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 48d769b17957dd417eee05749ee15c0b28c03276..19db4a6c4b13ffaaed18a0965d57e689a42f2df7 100644 (file)
--- 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 f4725d78c937d1a0c99b80b9ce3d415517409b15..398a12bd9b4ed35c1e6debabd6a50a0cadd65604 100644 (file)
--- 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 0545932f4e1f86c982f5eace22ce81c9b297849d..abb81d9cdac9bbbff101347db27acf572ce2578c 100644 (file)
--- 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 dd2894763634ab88008807c11e86a57807a09ad1..894c1bf0a9673e83a785f46c22f4da73fae6e072 100644 (file)
--- 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 152268a6edcd03b7c3c974ea593b27bc944f1143..9c0de7677645bc32949a3d082656ef26e487de77 100644 (file)
--- 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 b0c3ff4dfa47156f75b95fff64234a36007a7b38..7482eb9f9ce1b8a73a5a645d8dbfc46d62eb7220 100644 (file)
--- 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 b62046053ddde1d56473967cf69aa0fe85fb598b..236d187bdefb02b44fd27cfc9407a689de8de3fa 100644 (file)
--- 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 e00371f7520474589b4c586468995c7e06be093d..2e488d8932127e25543b0aecbf68c3b1e4a64cfc 100644 (file)
--- 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 04ce7752133f7b3c429f44b9ec44d05b6c89d0a0..df14ae5a11e0e77e756c1e4179ac5b9b6be63b5d 100644 (file)
--- 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 3ecbf6893b2f64a0b79a41e4a8013ad4f7e22d19..a53e9cc03a89b51bdbd925ddc49923c4a0552a28 100644 (file)
--- 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 ecaee90b28ed01b24681ed6c53b6c093fe018a3b..734b6a6823bddafc06e900028cffe80d6d9245dc 100644 (file)
--- 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 c737bf3a50a7622436ca22da9cfefb67d3deacc3..605bd71f2d9b5185b580ccd41995f664a60e3a11 100644 (file)
--- 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 49661cb12153d471d1b0ea1905da3d4887ed0b14..fa70b100404e6f1020ffc90f3da0d3ffa9b8b719 100644 (file)
--- 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 da51bd535b4a6be0d41ea0a208ae887aefbecdf0..4ad8d4144a268e480c700d2c0cc1ae8e1ab3b04b 100644 (file)
--- 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 a9976a6e69e1a65c624a2570e8a59cb437c62ee7..82d8acdf21cee8953fc222cc81f94f982806eaa7 100644 (file)
--- 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 e38cabc21d830c8f70fb5c33ff0a6628485b54f5..f55df6eadc0a86d043639c894f902981a974f451 100644 (file)
--- 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 9f7c770951d6705ffed5ba1d01625f6771bf83b6..e8a05a96f52371300af580bf3e2c65df5b8c4e4d 100644 (file)
--- 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 5d9d4ccbcebeadb7ea200fac11cb7266efb9c145..d2aef4b5c86ff0ed71b89796a9ccc9abfc4e0a4f 100644 (file)
--- 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 ca8a0d4ff5ffa0080fc69639603d8d327e36adf4..b452dedfdca91aef1ef7b6ce1bf5bc1738d1c030 100644 (file)
--- 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;