From: Mark Mitchell <mmitchel@gcc.gnu.org>
Date: Sun, 23 Aug 1998 15:29:09 +0000 (+0000)
Subject: old-dejagnu.exp: Make it possible to XFAIL a test that causes an ICE.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7a6d97a012348a0a610e2f3d6ecb300a17975ce8;p=gcc.git

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 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
     }
 
 #