1 # Copyright
2013-2019 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
/>.
18 standard_ada_testfile foo
21 set csrcfile $
{srcdir
}/$
{subdir
}/$
{testdir
}/$
{cfile
}.c
22 set cobject
[standard_output_file $
{cfile
}.o
]
24 gdb_compile
"${csrcfile}" "${cobject}" object [list debug]
25 if {[gdb_compile_ada
"${srcfile}" "${binfile}" executable [list debug additional_flags=-largs additional_flags=${cobject} additional_flags=-margs]] != "" } {
29 clean_restart $
{testfile
}
31 set bp_location
[gdb_get_line_number
"STOP" ${testdir}/foo.adb]
32 runto
"foo.adb:$bp_location"
35 "array \\(1 \\.\\. 1, 2 \\.\\. 3, 4 \\.\\. 6\\) of integer"
37 gdb_test
"print m'first" " = 1"
38 gdb_test
"print m'last" " = 1"
39 gdb_test
"print m'length" " = 1"
41 gdb_test
"print m'first(1)" " = 1"
42 gdb_test
"print m'last(1)" " = 1"
43 gdb_test
"print m'length(1)" " = 1"
45 gdb_test
"print m'first(2)" " = 2"
46 gdb_test
"print m'last(2)" " = 3"
47 gdb_test
"print m'length(2)" " = 2"
49 gdb_test
"print m'first(3)" " = 4"
50 gdb_test
"print m'last(3)" " = 6"
51 gdb_test
"print m'length(3)" " = 3"
53 gdb_test
"ptype global_3dim_for_gdb_testing" \
54 "array \\(0 \\.\\. 0, 0 \\.\\. 1, 0 \\.\\. 2\\) of int"
56 gdb_test
"print global_3dim_for_gdb_testing'first" " = 0"
57 gdb_test
"print global_3dim_for_gdb_testing'last" " = 0"
58 gdb_test
"print global_3dim_for_gdb_testing'length" " = 1"
60 gdb_test
"print global_3dim_for_gdb_testing'first(1)" " = 0"
61 gdb_test
"print global_3dim_for_gdb_testing'last(1)" " = 0"
62 gdb_test
"print global_3dim_for_gdb_testing'length(1)" " = 1"
64 gdb_test
"print global_3dim_for_gdb_testing'first(2)" " = 0"
65 gdb_test
"print global_3dim_for_gdb_testing'last(2)" " = 1"
66 gdb_test
"print global_3dim_for_gdb_testing'length(2)" " = 2"
68 gdb_test
"print global_3dim_for_gdb_testing'first(3)" " = 0"
69 gdb_test
"print global_3dim_for_gdb_testing'last(3)" " = 2"
70 gdb_test
"print global_3dim_for_gdb_testing'length(3)" " = 3"