re PR testsuite/41913 (ERROR: tcl error sourcing gcc.dg/lto/lto.exp)

2009-11-18  H.J. Lu  <hongjiu.lu@intel.com>

	PR testsuite/41913
	* lib/lto.exp (scan-symbol): Properly check if target exist.

From-SVN: r154296

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 594210fe335a424c15d112917b1bf46dfbf2b785..626ae78d3cfd9d4a492be13ac47edd108d35bcd0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-18  H.J. Lu  <hongjiu.lu@intel.com>
+
+       PR testsuite/41913
+       * lib/lto.exp (scan-symbol): Properly check if target exist.
+
 2009-11-18  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/42072

diff --git a/gcc/testsuite/lib/lto.exp b/gcc/testsuite/lib/lto.exp
index c3ff61aa2ce33f699c764a441e1eb40317f055b8..9e9084d1b687c4960dc7c29acc0b09610d577244 100644 (file)
--- a/gcc/testsuite/lib/lto.exp
+++ b/gcc/testsuite/lib/lto.exp
@@ -520,7 +520,7 @@ proc scan-symbol { args } {
        verbose -log "nm is $nm"
     }
 
-    set output_file $execname
+    set output_file "[glob -nocomplain $execname]"
     if { $output_file == "" } {
        fail "scan-symbol $args: dump file does not exist"
        return