1 # Copyright
2005, 2007 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 # This file is part of the gdb testsuite. It is intended to test that
17 # gdb can correctly print arrays with indexes
for each element of the
24 set testfile
"arrayidx"
25 set srcfile $
{testfile
}.c
26 set binfile $
{objdir
}/$
{subdir
}/$
{testfile
}
27 if { [gdb_compile
"${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
28 untested
"Couldn't compile ${srcfile}"
34 gdb_reinitialize_dir $srcdir
/$subdir
37 if ![runto_main
] then {
38 perror
"couldn't run to breakpoint"
42 # First
, print the array without the indexes
44 gdb_test
"set print array-indexes off" \
46 "Set print array-indexes to off"
48 gdb_test
"print array" \
50 "Print array with array-indexes off"
52 # Second
, print the same array with the indexes
54 gdb_test
"set print array-indexes on" \
56 "Set print array-indexes to on"
58 gdb_test
"print array" \
59 "\\{\\\[0\\\] = 1, \\\[1\\\] = 2, \\\[2\\\] = 3, \\\[3\\\] = 4\\}" \
60 "Print array with array-indexes on"