* [committed][gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11
@ 2021-07-21 12:24 Tom de Vries
0 siblings, 0 replies; only message in thread
From: Tom de Vries @ 2021-07-21 12:24 UTC (permalink / raw)
To: gdb-patches; +Cc: Tom Tromey, Joel Brobecker
Hi,
With gcc-11 we run into:
...
(gdb) print pa_ptr.all^M
That operation is not available on integers of more than 8 bytes.^M
(gdb) KFAIL: gdb.ada/arrayptr.exp: scenario=all: print pa_ptr.all (PRMS: gdb/20991)
...
This is due to PR exp/20991 - "__int128 type support". Mark this and similar
FAILs as KFAIL.
Also mark this FAIL:
....
(gdb) print pa_ptr(3)^M
cannot subscript or call something of type `foo__packed_array_ptr'^M
(gdb) FAIL: gdb.ada/arrayptr.exp: scenario=minimal: print pa_ptr(3)
...
as a KFAIL for PR ada/28115 - "Support packed array encoded as
DW_TAG_subrange_type".
Tested on x86_64-linux, with gcc-10 and gcc-11.
Committed to trunk and gdb-11-branch.
Thanks,
- Tom
[gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11
gdb/testsuite/ChangeLog:
2021-07-21 Tom de Vries <tdevries@suse.de>
* gdb.ada/arrayptr.exp: Add KFAILs for PR20991 and PR28115.
* gdb.ada/exprs.exp: Add KFAILs for PR20991.
* gdb.ada/packed_array_assign.exp: Same.
---
gdb/testsuite/gdb.ada/arrayptr.exp | 36 +++++++++++--
gdb/testsuite/gdb.ada/exprs.exp | 38 ++++++++++----
gdb/testsuite/gdb.ada/packed_array_assign.exp | 75 +++++++++++++++++++++++----
3 files changed, 127 insertions(+), 22 deletions(-)
diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp
index 515e21242a2..606794909d9 100644
--- a/gdb/testsuite/gdb.ada/arrayptr.exp
+++ b/gdb/testsuite/gdb.ada/arrayptr.exp
@@ -49,10 +49,38 @@ foreach_with_prefix scenario {all minimal} {
gdb_test "ptype string_access" "= access array \\(<>\\) of character"
- gdb_test "print pa_ptr.all" \
- " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)"
+ set kfail_int128support_re \
+ "That operation is not available on integers of more than 8 bytes\\."
+ set kfail_packed_array_range_re \
+ "cannot subscript or call something of type `foo__packed_array_ptr'"
+
+ gdb_test_multiple "print pa_ptr.all" "" {
+ -re -wrap " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)" {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+ }
- gdb_test "print pa_ptr(3)" " = 30"
+ gdb_test_multiple "print pa_ptr(3)" "" {
+ -re -wrap " = 30" {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+ -re -wrap $kfail_packed_array_range_re {
+ kfail gdb/28115 $gdb_test_name
+ }
+ }
- gdb_test "print pa_ptr.all(3)" " = 30"
+ gdb_test_multiple "print pa_ptr.all(3)" "" {
+ -re -wrap " = 30" {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+ }
}
diff --git a/gdb/testsuite/gdb.ada/exprs.exp b/gdb/testsuite/gdb.ada/exprs.exp
index 8139abf5dcf..480e5e9f971 100644
--- a/gdb/testsuite/gdb.ada/exprs.exp
+++ b/gdb/testsuite/gdb.ada/exprs.exp
@@ -28,14 +28,34 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/p.adb]
runto "p.adb:$bp_location"
-gdb_test "print X ** Y = Z" \
- "= true" \
- "Long_Long_Integer ** Y"
+set kfail_int128support_re \
+ "That operation is not available on integers of more than 8 bytes\\."
+
+gdb_test_multiple "print X ** Y = Z" "Long_Long_Integer ** Y" {
+ -re -wrap "= true" {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+}
-gdb_test "print long_float'min (long_float (X), 8.0)" \
- "= 7.0" \
- "long_float'min"
+set cmd "print long_float'min (long_float (X), 8.0)"
+gdb_test_multiple $cmd "long_float'min" {
+ -re -wrap "= 7.0" {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+}
-gdb_test "print long_float'max (long_float (X), 8.0)" \
- "= 8.0" \
- "long_float'max"
+set cmd "print long_float'max (long_float (X), 8.0)"
+gdb_test_multiple $cmd "long_float'max" {
+ -re -wrap "= 8.0" {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+}
diff --git a/gdb/testsuite/gdb.ada/packed_array_assign.exp b/gdb/testsuite/gdb.ada/packed_array_assign.exp
index b6c8cf673de..5f34a07e3af 100644
--- a/gdb/testsuite/gdb.ada/packed_array_assign.exp
+++ b/gdb/testsuite/gdb.ada/packed_array_assign.exp
@@ -27,15 +27,72 @@ clean_restart ${testfile}
runto "aggregates.run_test"
-gdb_test \
- "print pra := ((packed_array_assign_x => 2, packed_array_assign_y => 0, packed_array_assign_w => 17), pr, (packed_array_assign_x => 7, packed_array_assign_y => 1, packed_array_assign_w => 23))" \
- " = \\(\\(packed_array_assign_w => 17, packed_array_assign_x => 2, packed_array_assign_y => 0\\), \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\), \\(packed_array_assign_w => 23, packed_array_assign_x => 7, packed_array_assign_y => 1\\)\\)" \
- "value of pra"
-
-gdb_test "print pra(1) := pr" \
- " = \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\)"
-gdb_test "print pra(1)" \
- " = \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\)"
+set kfail_int128support_re \
+ "That operation is not available on integers of more than 8 bytes\\."
+
+set cmd \
+ [list \
+ "print pra := " \
+ "((packed_array_assign_x => 2," \
+ "packed_array_assign_y => 0," \
+ "packed_array_assign_w => 17)," \
+ "pr," \
+ "(packed_array_assign_x => 7," \
+ "packed_array_assign_y => 1," \
+ "packed_array_assign_w => 23))"]
+set cmd [join $cmd]
+set re \
+ [list \
+ " = \\(\\(packed_array_assign_w => 17," \
+ "packed_array_assign_x => 2," \
+ "packed_array_assign_y => 0\\)," \
+ "\\(packed_array_assign_w => 104," \
+ "packed_array_assign_x => 2," \
+ "packed_array_assign_y => 3\\)," \
+ "\\(packed_array_assign_w => 23," \
+ "packed_array_assign_x => 7," \
+ "packed_array_assign_y => 1\\)\\)"]
+set re [join $re]
+gdb_test_multiple $cmd "value of pra" {
+ -re -wrap $re {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+}
+
+set cmd "print pra(1) := pr"
+set re \
+ [list \
+ " = \\(packed_array_assign_w => 104," \
+ "packed_array_assign_x => 2," \
+ "packed_array_assign_y => 3\\)"]
+set re [join $re]
+gdb_test_multiple $cmd "" {
+ -re -wrap $re {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+}
+
+set cmd "print pra(1)"
+set re \
+ [list \
+ " = \\(packed_array_assign_w => 104," \
+ "packed_array_assign_x => 2," \
+ "packed_array_assign_y => 3\\)"]
+set re [join $re]
+gdb_test_multiple $cmd "" {
+ -re -wrap $re {
+ pass $gdb_test_name
+ }
+ -re -wrap $kfail_int128support_re {
+ kfail gdb/20991 $gdb_test_name
+ }
+}
gdb_test "print npr := (q000 => 3, r000 => (packed_array_assign_x => 6, packed_array_assign_y => 1, packed_array_assign_w => 117))" \
" = \\(q000 => 3, r000 => \\(packed_array_assign_w => 117, packed_array_assign_x => 6, packed_array_assign_y => 1\\)\\)" \
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2021-07-21 12:24 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-07-21 12:24 [committed][gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11 Tom de Vries
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).