[gdb/testsuite] Fix minimal encodings KPASSes

With current master I see a couple of KPASSes:
...
KPASS: gdb.ada/enum_idx_packed.exp: scenario=minimal: ptype small \
  (PRMS minimal encodings)
  ...
KPASS: gdb.ada/mod_from_name.exp: scenario=minimal: print xp \
  (PRMS minimal encodings)
KPASS: gdb.ada/pckd_arr_ren.exp: scenario=minimal: print var \
  (PRMS minimal encodings)
...

The corresponding setup_kfail is called for everything before gnat 11.

However, the test-cases also PASS for me with gnat-4.8, gnat-7.5.0 and
gnat-8.4.0.

Fix the KPASSes by limiting the setup_kfail to gnat 9 and 10.

Tested on x86_64-linux.

gdb/testsuite/ChangeLog:

2020-11-23  Tom de Vries  <tdevries@suse.de>

	* gdb.ada/enum_idx_packed.exp: Limit setup_kfail to gnat 9 and 10.
	* gdb.ada/mod_from_name.exp: Same.
	* gdb.ada/pckd_arr_ren.exp: Same.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 185d7cd79c4e4127959b0a8b2fead75cbd8f3b96..da7823fddf29905225a0d34a9755b39713102937 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2020-11-23  Tom de Vries  <tdevries@suse.de>
+
+       * gdb.ada/enum_idx_packed.exp: Limit setup_kfail to gnat 9 and 10.
+       * gdb.ada/mod_from_name.exp: Same.
+       * gdb.ada/pckd_arr_ren.exp: Same.
+
 2020-11-22  Simon Marchi  <simon.marchi@polymtl.ca>
 
        * gdb.base/template.exp: New.

diff --git a/gdb/testsuite/gdb.ada/enum_idx_packed.exp b/gdb/testsuite/gdb.ada/enum_idx_packed.exp
index 2e5a85e76b3f5eb36053e0734be0dfd9103aabf4..f32c488e17144b1c1073d9ddb7027d275f58018b 100644 (file)
--- a/gdb/testsuite/gdb.ada/enum_idx_packed.exp
+++ b/gdb/testsuite/gdb.ada/enum_idx_packed.exp
@@ -28,8 +28,9 @@ foreach_with_prefix scenario {all minimal} {
 
     clean_restart ${testfile}
 
-    # GNAT >= 11.0 has the needed fix here.
-    if {$scenario == "minimal" && ![test_compiler_info {gcc-1[1-9]-*}]} {
+    # GNAT 9 and 10 are known to fail.
+    if {$scenario == "minimal" && ([test_compiler_info {gcc-9-*}] \
+                                      || [test_compiler_info {gcc-10-*}])} {
        set old_compiler 1
     } else {
        set old_compiler 0

diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp
index 43d81e0026f9df630a4dd1570ff64cda9bd1f42d..5f779c308456b6b7e3507b8154c2624aefebd639 100644 (file)
--- a/gdb/testsuite/gdb.ada/mod_from_name.exp
+++ b/gdb/testsuite/gdb.ada/mod_from_name.exp
@@ -34,8 +34,9 @@ foreach_with_prefix scenario {all minimal} {
        return
     } 
 
-    # GNAT >= 11.0 has the needed fix here.
-    if {$scenario == "minimal" && ![test_compiler_info {gcc-1[1-9]-*}]} {
+    # GNAT 9 and 10 are known to fail.
+    if {$scenario == "minimal" && ([test_compiler_info {gcc-9-*}] \
+                                      || [test_compiler_info {gcc-10-*}])} {
        setup_kfail "minimal encodings" *-*-*
     }
     gdb_test "print xp" \

diff --git a/gdb/testsuite/gdb.ada/pckd_arr_ren.exp b/gdb/testsuite/gdb.ada/pckd_arr_ren.exp
index 13e599b6a5889fed34341ca1f69f9a0e1701e59d..8c53f857beefdcdb46a0dc9a177bf7e0ae426018 100644 (file)
--- a/gdb/testsuite/gdb.ada/pckd_arr_ren.exp
+++ b/gdb/testsuite/gdb.ada/pckd_arr_ren.exp
@@ -31,8 +31,9 @@ foreach_with_prefix scenario {all minimal} {
     set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
     runto "foo.adb:$bp_location"
 
-    # GNAT >= 11.0 has the needed fix here.
-    if {$scenario == "minimal" && ![test_compiler_info {gcc-1[1-9]-*}]} {
+    # GNAT 9 and 10 are known to fail.
+    if {$scenario == "minimal" && ([test_compiler_info {gcc-9-*}] \
+                                      || [test_compiler_info {gcc-10-*}])} {
        setup_kfail "minimal encodings" *-*-*
     }
     gdb_test "print A2" \