1# Copyright 2022-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 16# Tests that require character to be a discrete type. 17 18load_lib "ada.exp" 19 20if { [skip_ada_tests] } { return -1 } 21 22standard_ada_testfile main 23 24if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} { 25 return -1 26} 27 28clean_restart ${testfile} 29 30set bp_location [gdb_get_line_number "STOP" ${testdir}/main.adb] 31if {![runto "main.adb:$bp_location"]} { 32 return 33} 34 35gdb_test_no_output "set print array-indexes on" 36gdb_test "print array_value" \ 37 [string_to_regexp "= (65 'A' => true, 66 'B' => false <repeats 24 times>, 90 'Z' => true)"] 38 39gdb_test "print character'val(65)" " = 65 'A'" 40gdb_test "print character'pos('A')" " = 65" 41gdb_test "print character'first" [string_to_regexp " = 0 '\[\"00\"\]'"] 42