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 40aa9c3..94659a2 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 8cdb612..6c9ba94 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 514fa7e..af50301 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 067a57e..bdda767 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 c6f6166..9d1abff 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 03e5e65..1e94bef 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 49db111..b84a42c 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 5312e0a..8ed69bf 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 c138f24..c3bb699 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 a22c044..b710191 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 6a692ae..a1036ef 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 35c1b1a..9a0feda 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 01354be..5e9a640 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 e6f80e4..251e43f 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 1aab12b..f826f0d 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 6c8303c..38fc06a 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 94d2152..a93d1f6 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 84951de..22ac557 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 2018582..2a07da9 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 e07530f..05b8e56 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 be11fe1..1147f1a 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 383a88b..df7dfc1 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 0cef27d..4c2102f 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 965d145..0cb2df7 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 f90b32f..85c22a1 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 72ab610..9eaaa5d 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 7931179..3413bde 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 f5d4a55..a71d0e1 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 e472078..ad8226e 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 b6e2cf7..e555bc4 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 7461096..a0db79b 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 6dcb87f..b77aa62 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 5ef5989..a1e85b3 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 58a015b..e9d21af 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 cbb1d5b..9c7f474 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 6fb715f..308afc6 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 1bc624e..f9c4ade 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 833525d..4a934f5 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 dc3b301..b17b4db 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 48d769b..19db4a6 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 f4725d7..398a12b 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 0545932..abb81d9 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 dd28947..894c1bf 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 152268a..9c0de76 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 b0c3ff4..7482eb9 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 b620460..236d187 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 e00371f..2e488d8 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 04ce775..df14ae5 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 3ecbf68..a53e9cc 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 ecaee90..734b6a6 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 c737bf3..605bd71 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 49661cb..fa70b10 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 da51bd5..4ad8d41 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 a9976a6..82d8acd 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 e38cabc..f55df6e 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 9f7c770..e8a05a9 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 5d9d4cc..d2aef4b 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 ca8a0d4..b452ded 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;