-# Copyright 2007, 2008, 2009 Free Software Foundation, Inc.
+# Copyright 2007-2015 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
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
gdb_exit
# Force the language to Ada, as this will not happen automatically
# in this case (no test program).
-gdb_test "set lang ada" \
- "" \
+gdb_test_no_output "set lang ada" \
"Changing the language to ada"
gdb_test "print 1 = 2" \