1# Copyright 2020-2023 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
16load_lib dwarf.exp
17
18# This test can only be run on targets which support DWARF-2 and use gas.
19if {![dwarf2_support]} {
20    return 0
21}
22
23standard_testfile .c -debug.S
24
25lassign [function_range main ${srcdir}/${subdir}/${srcfile}] \
26    main_start main_length
27
28set asm_file [standard_output_file $srcfile2]
29source $srcdir/$subdir/clang-debug-names.exp.tcl
30
31if { [prepare_for_testing "failed to prepare" ${testfile} \
32	  [list $srcfile $asm_file] {nodebug}] } {
33    return -1
34}
35
36set test "no file command warnings"
37if { [regexp "warning: " $gdb_file_cmd_msg] } {
38    set kfail_re \
39	[concat \
40	     "warning: Section .debug_aranges in \[^\r\n\]* entry" \
41	     "at offset 0 debug_info_offset 0 does not exists," \
42	     "ignoring \\.debug_aranges\\."]
43    if { [regexp $kfail_re $gdb_file_cmd_msg] } {
44	kfail symtab/25969 $test
45    } else {
46	fail $test
47    }
48} else {
49    pass $test
50}
51
52set cmd "ptype main"
53set pass_re \
54    [multi_line \
55	 $cmd \
56	 "type = int \\(\\)"]
57gdb_test $cmd $pass_re
58