diff options
| author | Mark Mitchell <mmitchel@gcc.gnu.org> | 1998-08-23 15:29:09 +0000 |
|---|---|---|
| committer | Mark Mitchell <mmitchel@gcc.gnu.org> | 1998-08-23 15:29:09 +0000 |
| commit | 7a6d97a012348a0a610e2f3d6ecb300a17975ce8 (patch) | |
| tree | a51a789423988341789c3a10358e8c98dd81ac6a /gcc/testsuite/lib | |
| parent | 70c4c000ff88462085c30f8e160994a6df4bbb20 (diff) | |
| download | gcc-7a6d97a012348a0a610e2f3d6ecb300a17975ce8.zip gcc-7a6d97a012348a0a610e2f3d6ecb300a17975ce8.tar.gz gcc-7a6d97a012348a0a610e2f3d6ecb300a17975ce8.tar.bz2 | |
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
Diffstat (limited to 'gcc/testsuite/lib')
| -rw-r--r-- | gcc/testsuite/lib/old-dejagnu.exp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/testsuite/lib/old-dejagnu.exp b/gcc/testsuite/lib/old-dejagnu.exp index ceae14b..30d2236 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 } # |