* tests2.exp: Setup_xfail "i*86-*-linux" and

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.chill / tests2.exp

diff --git a/gdb/testsuite/gdb.chill/tests2.exp b/gdb/testsuite/gdb.chill/tests2.exp
index 38260f12d64c183905025ddad13030330f15a94a..2630a16d449f38310feae17ca9d2577e10d254b3 100644 (file)
--- a/gdb/testsuite/gdb.chill/tests2.exp
+++ b/gdb/testsuite/gdb.chill/tests2.exp
@@ -37,6 +37,13 @@ if  { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != ""
     return -1
 }
 
+global infinity
+if [istarget "i*86-*-sysv4*"] then {
+    set infinity "inf"
+} else {
+    set infinity "Infinity"
+}
+
 proc set_lang_chill {} {
     global prompt
     global binfile objdir subdir
@@ -118,6 +125,7 @@ proc test_write { args } {
 
 # test write access from gdb (setvar x:=y) from gdb
 proc write_access { } {
+    global infinity
 
     verbose "testing write access to locations"
     
@@ -203,12 +211,13 @@ proc write_access { } {
     test_write re1 0 "real write 2"
     test_write re1 "1e+38" {1e\+38|1\.0[0-9]*e\+38|9\.9[0-9]*e\+37} \
        "real write 3"
-    test_write re1 "1e+39" Infinity "real write 4"
+    setup_xfail "i*86-*-linux" "mips-sgi-irix*"
+    test_write re1 "1e+39" $infinity "real write 4"
     test_write re2 42.03 {42.0[0-9]*} "real write 5"
     test_write re2 0 "real write 6"
     test_write re2 "1e+308" {1e\+308} "real write 7"
-    test_write re2 "1e+309" Infinity "real write 8"
-
+    setup_xfail "i*86-*-linux" "mips-sgi-irix*"
+    test_write re2 "1e+309" $infinity "real write 8"
     # array modes
     test_write arrl1 {[(1:3): [(1:2): -128]]} {\[\(1:3\): \[\(1:2\): -128\]\]}\
        "array write 1"