1# Copyright 2019-2024 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 "ada.exp" 17 18require allow_ada_tests 19 20standard_ada_testfile foo_ra24_010 21 22set old_gcc [expr [test_compiler_info {gcc-[0-8]-*}]] 23 24foreach_with_prefix scenario {all minimal} { 25 set flags [list debug additional_flags=-fgnat-encodings=$scenario] 26 27 if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} { 28 return -1 29 } 30 31 clean_restart ${testfile}-${scenario} 32 33 set bp_location [gdb_get_line_number "STOP" ${testdir}/foo_ra24_010.adb] 34 runto "foo_ra24_010.adb:$bp_location" 35 36 gdb_test "print good" \ 37 "= \\(false <repeats 196 times>\\)" \ 38 39 set have_xfail [expr $old_gcc && [string equal "$scenario" "minimal"]] 40 41 set re "= \\(false <repeats 196 times>\\)" 42 set re_xfail "= \\(0 => 0 <repeats 25 times>\\)" 43 set re_xfail2 "= \\(0 => 0 <repeats 24 times>, ($decimal)\\)" 44 gdb_test_multiple "print bad" "" { 45 -re -wrap $re { 46 pass $gdb_test_name 47 } 48 -re -wrap $re_xfail { 49 if { $have_xfail } { 50 # gcc/101643 51 setup_xfail *-*-* 52 } 53 fail $gdb_test_name 54 } 55 -re -wrap $re_xfail2 { 56 set last $expect_out(1,string) 57 if { $have_xfail && [string is integer $last] \ 58 && [expr ($last & 0xf) == 0] } { 59 # gcc/101643 60 setup_xfail *-*-* 61 } 62 fail $gdb_test_name 63 } 64 } 65} 66