From 239e440d30998da4af74095c75bdb501d3a3987d Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 17 Oct 2022 13:16:59 -0600 Subject: [PATCH] kfail an Ada test for GCC < 12 I noticed one particular Ada test was failing on Fedora 34, but works when I switch to GCC 12. This patch arranges to kfail the test when an older compiler is used. I tested this with GCC 11, 12, and 13. I'm going to check it in. --- gdb/testsuite/gdb.ada/packed_array_assign.exp | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/gdb/testsuite/gdb.ada/packed_array_assign.exp b/gdb/testsuite/gdb.ada/packed_array_assign.exp index eef0d39b6a8..a0240fc17be 100644 --- a/gdb/testsuite/gdb.ada/packed_array_assign.exp +++ b/gdb/testsuite/gdb.ada/packed_array_assign.exp @@ -52,6 +52,12 @@ set re \ "\\(packed_array_assign_w => 23," \ "packed_array_assign_x => 7," \ "packed_array_assign_y => 1\\)\\)"] + +# GNAT >= 12.0 has the needed fix here. +set zeros_expected [expr {![test_compiler_info {gcc-1[2-9]-*}]}] +set all_zeros \ + [string_to_regexp "((packed_array_assign_w => 0, packed_array_assign_x => 0, packed_array_assign_y => 0), (packed_array_assign_w => 0, packed_array_assign_x => 0, packed_array_assign_y => 0), (packed_array_assign_w => 0, packed_array_assign_x => 0, packed_array_assign_y => 0))"] + set re [join $re] gdb_test_multiple $cmd "value of pra" { -re -wrap $re { @@ -60,6 +66,12 @@ gdb_test_multiple $cmd "value of pra" { -re -wrap $kfail_int128support_re { kfail gdb/20991 $gdb_test_name } + -re -wrap $all_zeros { + if {$zeros_expected} { + setup_kfail "GCC 12 needed" *-*-* + } + fail $gdb_test_name + } } set cmd "print pra(1) := pr" -- 2.30.2