go-test.exp: Clear runtests around invocation of go-dg-runtest from errchk and go-execute-xfail.

	* go.test/go-test.exp: Clear runtests around invocation of
	go-dg-runtest from errchk and go-execute-xfail.

From-SVN: r168136

gcc/testsuite/ChangeLog

+2010-12-21  Ian Lance Taylor  <iant@google.com>
+
+	* go.test/go-test.exp: Clear runtests around invocation of
+	go-dg-runtest from errchk and go-execute-xfail.
+
 2010-12-21  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/46880
@@ -14,8 +19,8 @@
 	* objc.dg/special/special.exp: Added new test.
 	* objc.dg/special/load-category-1.m: New.
 	* objc.dg/special/load-category-1a.m: New.
-	* objc.dg/special/load-category-1.h: New.	
-	
+	* objc.dg/special/load-category-1.h: New.
+
 2010-12-21  Steven Bosscher  <steven@gcc.gnu.org>
 
 	PR middle-end/45310

gcc/testsuite/go.test/go-test.exp

@@ -38,6 +38,7 @@ load_lib go-torture.exp
 proc errchk { test } {
     global dg-do-what-default
     global DEFAULT_GOCFLAGS
+    global runtests
 
     set saved-dg-do-what-default ${dg-do-what-default}
     set dg-do-what-default compile
@@ -72,7 +73,12 @@ proc errchk { test } {
     }
     close $fdin
     close $fdout
+
+    set hold_runtests $runtests
+    set runtests "go-test.exp"
     go-dg-runtest $filename "-fno-show-column $DEFAULT_GOCFLAGS"
+    set runtests $hold_runtests
+
     file delete $filename
     set dg-do-what-default ${saved-dg-do-what-default}
 }
@@ -80,6 +86,7 @@ proc errchk { test } {
 # This is an execution test which should fail.
 proc go-execute-xfail { test } {
     global DEFAULT_GOCFLAGS
+    global runtests
 
     set filename [file tail $test]
     set fdin [open $test r]
@@ -90,7 +97,12 @@ proc go-execute-xfail { test } {
     }
     close $fdin
     close $fdout
+
+    set hold_runtests $runtests
+    set runtests "go-test.exp"
     go-dg-runtest $filename "-w $DEFAULT_GOCFLAGS"
+    set runtests $hold_runtests
+
     file delete $filename
 }