Merge GDB 7.5.1

gdb/testsuite/lib/go.exp

Index: gdb/testsuite/lib/go.exp
diff --git a/gdb/testsuite/lib/fortran.exp b/gdb/testsuite/lib/go.exp
similarity index 59%
copy from gdb/testsuite/lib/fortran.exp
copy to gdb/testsuite/lib/go.exp
index 5cb8e4932a8d0e5b8b782e933098ddc898217b9e..e8466bbc25e1378fd72c703ab4976b7c00c34e6c 100644
--- a/gdb/testsuite/lib/fortran.exp
+++ b/gdb/testsuite/lib/go.exp
@@ -1,6 +1,4 @@
-# This test code is part of GDB, the GNU debugger.
-
-# Copyright 2010-2012 Free Software Foundation, Inc.
+# Copyright 2012 Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -15,16 +13,25 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-# Auxiliary function to set the language to fortran.
+# FIXME: Presumably skip_go_tests should be defined here,
+# but for consistency with other languages it currently lives in gdb.exp.
+
+# Auxiliary function to set the language to Go.
 # The result is 1 (true) for success, 0 (false) for failure.
 
-proc set_lang_fortran {} {
-    if [gdb_test_no_output "set language fortran"] {
+proc set_lang_go {} {
+    if [gdb_test_no_output "set language go"] {
 	return 0
     }
-    if [gdb_test "show language" ".* source language is \"fortran\"." \
-	   "set language to \"fortran\""] {
+    if [gdb_test "show language" ".* source language is \"go\"." \
+	   "set language to \"go\""] {
 	return 0
     }
-    return 1;
+    return 1
+}
+
+# Go version of runto_main.
+
+proc go_runto_main { } {
+    return [runto main.main]
 }