lto.exp (lto-execute): Fix error catching for dg-final.

2014-03-13  Richard Biener  <rguenther@suse.de>

	* lib/lto.exp (lto-execute): Fix error catching for dg-final.

From-SVN: r208536

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c190cd47fa1fe59b84a3a8d0f229f41fb7ccfdd8..66aad3290c5690c2f170c5348a0dbf3ea39765c8 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-03-13  Richard Biener  <rguenther@suse.de>
+
+       * lib/lto.exp (lto-execute): Fix error catching for dg-final.
+
 2014-03-12  Michael Meissner  <meissner@linux.vnet.ibm.com>
 
        * gcc.target/powerpc/p8vector-int128-1.c: New test to test ISA

diff --git a/gcc/testsuite/lib/lto.exp b/gcc/testsuite/lib/lto.exp
index aa632fbb8ce7c016b432b0e0177fb0d21e3484bf..23b1320bde4b29f46079d979117f16505e8b088d 100644 (file)
--- a/gcc/testsuite/lib/lto.exp
+++ b/gcc/testsuite/lib/lto.exp
@@ -559,11 +559,11 @@ proc lto-execute { src1 sid } {
            verbose "Running dg-final tests." 3
            verbose "dg-final-proc:\n[info body dg-final-proc]" 4
            if [catch "dg-final-proc $src1" errmsg] {
-               perror "$name: error executing dg-final: $errmsg"
+               perror "$src1: error executing dg-final: $errmsg"
                # ??? The call to unresolved here is necessary to clear
                # `errcnt'.  What we really need is a proc like perror that
                # doesn't set errcnt.  It should also set exit_status to 1.
-               unresolved "$name: error executing dg-final: $errmsg"
+               unresolved "$src1: error executing dg-final: $errmsg"
            }
        }