[PATCH] Fix lto.exp dg-final error catching

[Richard Biener]

While trying cleanup-saved-temps in a LTO testcase (which of course
doesn't work ... error executing dg-final: bad level "5" (!??)) I
ran into a TCL error printing the error - we use bogus variables.

Fixed as obvious.

Richard.

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

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

Index: gcc/testsuite/lib/lto.exp
===================================================================
--- gcc/testsuite/lib/lto.exp   (revision 208532)
+++ gcc/testsuite/lib/lto.exp   (working copy)
@@ -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"
            }
        }