1 # Copyright
2007-2023 Free Software Foundation
, Inc.
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.
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.
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
/>.
16 if { [is_remote host
] } {
17 gdb_remote_download host $srcdir
/$subdir
/included.h
21 if {[prepare_for_testing
"failed to prepare" $testfile $srcfile debug]} {
25 gdb_test_no_output
"set listsize 1"
27 gdb_test
"list -q main" ".*"
29 set non_dwarf
[expr
! [test_debug_format
"DWARF \[0-9\]"]]
31 # We should be able to find the source file containing the definition
,
32 # even though it was an included header.
33 if { $non_dwarf
} { setup_xfail
*-*-* }
34 gdb_test
"list integer" "int integer;"
36 gdb_test
"ptype integer" "type = int"
38 # We should
report that
integer comes from the header file.
39 if { $non_dwarf
} { setup_xfail
*-*-* }
40 gdb_test
"info variables integer" "\r\nFile \[^\r\n\]*${testfile}.h:\r\n.*\tint integer;"