# Copyright 2020-2021 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 # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. standard_testfile .cc if {[build_executable "failed to prepare" $testfile $srcfile debug]} { return -1 } clean_restart set auto_c \ "The current source language is \"auto; currently c\"\." set manual_c \ "The current source language is \"c\"\." gdb_test "show language" $auto_c \ "initial language is auto/c" gdb_test_no_output "set language c" gdb_test "show language" $manual_c \ "language updated to manual/c after set" set binfile [standard_output_file ${testfile}] gdb_load ${binfile} gdb_test "show language" $manual_c \ "language still manual/c after load"