diff options
author | Pierre Muller <muller@sourceware.org> | 2009-02-18 14:46:14 +0000 |
---|---|---|
committer | Pierre Muller <muller@sourceware.org> | 2009-02-18 14:46:14 +0000 |
commit | c087fcd326dc166f4a7aebd8485713440133f0ff (patch) | |
tree | 0b47b5959af148e6a84421ead801508fd35ba39e /gdb | |
parent | fea2b4d6bdf69b238e33251e81593ec440a1d504 (diff) | |
download | gdb-c087fcd326dc166f4a7aebd8485713440133f0ff.zip gdb-c087fcd326dc166f4a7aebd8485713440133f0ff.tar.gz gdb-c087fcd326dc166f4a7aebd8485713440133f0ff.tar.bz2 |
* gdb.pascal/floats.exp: Accept approximate results everywhere.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gdb/testsuite/gdb.pascal/floats.exp | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 9b36fd1..939d75c 100644 --- 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 9d17867..fa1e09d 100644 --- 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}.*" \ |