testsuite/gna/bug071: adjust test for windows.

1 files changed, 10 insertions, 2 deletions

diff --git a/testsuite/gna/bug071/atod.vhdl b/testsuite/gna/bug071/atod.vhdl
index 52e0c2189..2ff3bf90a 100644
--- a/testsuite/gna/bug071/atod.vhdl
+++ b/testsuite/gna/bug071/atod.vhdl
@@ -35,11 +35,19 @@ begin
       report to_string (csts (i), "%a") severity note;
     end loop;
 
+    --  There are two possible outputs according to the normalization of
+    --  the first digit.
     v := csts (2);
-    assert to_string (v, "%.13a") = "0x1.dcd0089c1314ep+218" severity failure;
+    assert
+      to_string (v, "%.13a") = "0x1.dcd0089c1314ep+218"
+      or to_string (v, "%.13a") = "0xe.e68044e098a7p+215"
+      severity failure;
 
     v := csts (3);
-    assert to_string (v, "%.13a") = "0x1.62644c61d41aap+885" severity failure;
+    assert
+      to_string (v, "%.13a") = "0x1.62644c61d41aap+885"
+      or to_string (v, "%.13a") = "0xb.1322630ea0d5p+882"
+      severity failure;
     wait;
   end process;
 end behav;