old-dejagnu.exp: Make it possible to XFAIL a test that causes an ICE.

	* lib/old-dejagnu.exp: Make it possible to XFAIL a test that
	causes an ICE.

From-SVN: r21918

diff --git a/gcc/testsuite/lib/old-dejagnu.exp b/gcc/testsuite/lib/old-dejagnu.exp
index ceae14b..30d2236 100644 (file)
--- a/gcc/testsuite/lib/old-dejagnu.exp
+++ b/gcc/testsuite/lib/old-dejagnu.exp
@@ -384,10 +384,11 @@ proc old-dejagnu { compiler prog cflagsx default_cflags libs } {
 
     set expect_crash \
       [process-option $prog "crash test - " "a crash" CRASH $text]
-    if {$expect_crash == "XCRASH"} then {
-       set expect_crash 0
-    } else {
+    if {$expect_crash != "" 
+        && [lindex [lindex $expect_crash 0] 1] == "XCRASH"} then {
        set expect_crash 1
+    } else {
+       set expect_crash 0
     }
 
 #