1# Copyright 2019-2024 Free Software Foundation, Inc. 2# 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# Test case using the -gnatDG option. 17 18load_lib "ada.exp" 19 20require allow_ada_tests 21 22standard_ada_testfile x 23 24if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \ 25 {debug additional_flags=-gnatDG}] != "" } { 26 return -1 27} 28 29clean_restart ${testfile} 30 31# The bug occurs with .debug_names, but here we don't check whether 32# the appropriate target board is in use. The problem was that the 33# .adb file did not end up in the file table, but did show up in the 34# DWARF, which the psymtab reader handled, but which the .debug_names 35# reader did not. 36gdb_test "list x.adb:16, 16" "16.*procedure X is" 37