Merge GDB 7.5.1

gdb/testsuite/gdb.go/print.exp

Index: gdb/testsuite/gdb.go/print.exp
diff --git a/gdb/testsuite/gdb.pascal/print.exp b/gdb/testsuite/gdb.go/print.exp
similarity index 83%
copy from gdb/testsuite/gdb.pascal/print.exp
copy to gdb/testsuite/gdb.go/print.exp
index ba6351b95b282054a8786a315e7ed871295604d2..84e616610be3fb6dc099f12bdbd1f8caa540952c 100644
--- a/gdb/testsuite/gdb.pascal/print.exp
+++ b/gdb/testsuite/gdb.go/print.exp
@@ -1,6 +1,6 @@
 # This testcase 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,17 +15,12 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-# Please email any bugs, comments, and/or additions to this file to:
-# bug-gdb@gnu.org
-
 # Test printing of various values.
-# NOTE: The tests here intentionally do not require a pascal compiler.
+# NOTE: The tests here intentionally do not require a go compiler.
 
-if $tracelevel {
-    strace $tracelevel
-}
+load_lib "go.exp"
 
-load_lib "pascal.exp"
+if { [skip_go_tests] } { continue }
 
 proc test_float_accepted {} {
     global gdb_prompt
@@ -67,9 +62,9 @@ gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
 
-if [set_lang_pascal] {
+if [set_lang_go] {
     test_float_accepted
     test_float_rejected
 } else {
-    warning "Pascal print tests suppressed"
+    warning "Go print tests suppressed"
 }