From 7a6d97a012348a0a610e2f3d6ecb300a17975ce8 Mon Sep 17 00:00:00 2001
From: Mark Mitchell <mmitchel@gcc.gnu.org>
Date: Sun, 23 Aug 1998 15:29:09 +0000
Subject: [PATCH] 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
---
 gcc/testsuite/lib/old-dejagnu.exp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gcc/testsuite/lib/old-dejagnu.exp b/gcc/testsuite/lib/old-dejagnu.exp
index ceae14b78cf..30d2236d423 100644
--- 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
     }
 
 #
-- 
2.30.2