special.exp: Handle newer versions of dejagnu.

        * gcc.c-torture/special/special.exp: Handle newer versions of
        dejagnu.

From-SVN: r20764

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c13421d7ec97c8ee25ad040d160212b9367d46f6..e1d94e5324de4d3a97d4918a251a1f4480585415 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Sat Jun 27 23:23:18 1998  Carlo Wood  <carlo@runaway.xs4all.nl>
+
+       * gcc.c-torture/special/special.exp: Handle newer versions of
+       dejagnu.
+
 Fri Jun 26 17:57:40 1998  Jeffrey A Law  (law@cygnus.com)
 
        * gcc.dg/980626-1.c: New test.

diff --git a/gcc/testsuite/gcc.c-torture/special/special.exp b/gcc/testsuite/gcc.c-torture/special/special.exp
index 9b1142149e62484d5e785b8863372579d8a9ccd8..374fe40c7653d198b1e021f7c1b01443fa3b3326 100644 (file)
--- a/gcc/testsuite/gcc.c-torture/special/special.exp
+++ b/gcc/testsuite/gcc.c-torture/special/special.exp
@@ -36,7 +36,7 @@ load_lib gcc-dg.exp
 
 # 921210-1
 set lines [gcc_target_compile $srcdir/$subdir/921210-1.c "" preprocess ""]
-set lines [split [prune_warnings [prune_gcc_output $lines]] "\n"]
+set lines [prune [split [prune_warnings [prune_gcc_output $lines]] "\n"] ""]
 set line [lindex $lines [expr [llength $lines]-1]]
 regsub -all " " $line "" clean
 if [expr [string compare $clean "(a->f+1)+1"]==0] then {