* gdb.pascal/floats.exp: Accept approximate results everywhere.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 9b36fd1e1bcf9d6b289661cc895682f177139085..939d75cf30b0db04744fdfb9c2bb16a64e841730 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2009-02-18  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * gdb.pascal/floats.exp: Accept approximate results everywhere.
+       
 2009-02-17  Vladimir Prus  <vladimir@codesourcery.com>
 
        * gdb.mi/mi-nonstop.exp (notifs): Adjust for library

diff --git a/gdb/testsuite/gdb.pascal/floats.exp b/gdb/testsuite/gdb.pascal/floats.exp
index 9d17867a1cb5be5bcbfea7ca23c3702b633b4d23..fa1e09d71f735bbd48be6759ed7111975a3a514e 100644 (file)
--- a/gdb/testsuite/gdb.pascal/floats.exp
+++ b/gdb/testsuite/gdb.pascal/floats.exp
@@ -76,10 +76,10 @@ gdb_test "print r + t" " = -1\\.9(499.*|5|500.*)"
 #Test addition with float constants
 gdb_test "print r + 1.5" " = 2\\.7(499.*|5|500.*)"
 gdb_test "print r + 0.03" " = 1\\.2(799.*|8|800.*)"
-gdb_test "print r + (-0.2)" " = 1\\.0(499|5|500.*)"
+gdb_test "print r + (-0.2)" " = 1\\.0(499.*|5|500.*)"
 gdb_test "print r + 1.5E+3" " = 1501\\.2(499.*|5|500.*)"
 gdb_test "print r + 1.5E+2" " = 151\\.2(499.*|5|500.*)"
-gdb_test "print r + 1.5E+1" " = 16\\.2(499|5|500.*)"
+gdb_test "print r + 1.5E+1" " = 16\\.2(499.*|5|500.*)"
 gdb_test "print r + 1.5E+0" " = 2\\.7(499.*|5|500.*)"
 gdb_test "print r + 1.5E-1" " = 1\\.(399.*|4|400.*)"
 gdb_test "print r + 1.5E-2" " = 1\\.26(499.*|5|500.*)"
@@ -93,7 +93,7 @@ gdb_test "print l + t" " = -2\\.(199.*|2|200.*)"
 gdb_test "print r + 10" " = 11\\.2(499.*|5|500.*)"
 gdb_test "print r + 5" " = 6\\.2(499.*|5|500.*)"
 gdb_test "print r + 1" " = 2\\.2(499.*|5|500.*)"
-gdb_test "print r + 0" " = 1\\.2(499|5|500.*)"
+gdb_test "print r + 0" " = 1\\.2(499.*|5|500.*)"
 gdb_test "print r + (-1)" " = 0\\.2(499.*|5|500.*)"
 gdb_test "print r + (-5)" " = -3\\.7(499.*|5|500.*)"
 gdb_test "print r + (-10)" " = -8\\.7(499.*|5|500.*)"
@@ -120,7 +120,7 @@ gdb_test "print 35 / 2" " = 17\\.(499.*|5|500.*)"
 # 'set r' does not work, as there are set sub-commands starting with 'r'
 # Thus we need to use 'set var r'
 gdb_test "set var r := 2.56" " := 2\\.56"
-gdb_test "print r" " = 2\\.56.*" "Testing new r value"
+gdb_test "print r" " = 2\\.5(599.*|6|600.*)" "Testing new r value"
 
 gdb_test "cont" \
         "Breakpoint .*:${bp_location2}.*" \