From: Joel Brobecker <brobecker@gnat.com>
Date: Mon, 21 Feb 2011 10:12:14 +0000 (+0000)
Subject: add xfail for "print u_var" test in gdb.ada/packed_array.exp
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=91033e3716b2eccc227992cde676198949941edf;p=binutils-gdb.git

add xfail for "print u_var" test in gdb.ada/packed_array.exp

gdb/testsuite/ChangeLog:

        * gdb.ada/packed_array.exp: Add xfail for "print u_var" if
        the debugger is unable to find the array bounds.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 8ef2fcdd9cd..c40ce299e07 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-21  Joel Brobecker  <brobecker@adacore.com>
+
+	* gdb.ada/packed_array.exp: Add xfail for "print u_var" if
+	the debugger is unable to find the array bounds.
+
 2011-02-18  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
 	* gdb.cp/typedef-operator.exp: New file.
diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp
index d7885bb739d..fc4dd170f92 100644
--- a/gdb/testsuite/gdb.ada/packed_array.exp
+++ b/gdb/testsuite/gdb.ada/packed_array.exp
@@ -53,6 +53,16 @@ gdb_test "print &var" \
 
 # Print the value of U_Var, an unconstrainted packed array.
 
-gdb_test "print u_var" \
-         "= \\(true, false, false, true, true, false\\)"
+set test "print u_var"
+gdb_test_multiple "$test" "$test" {
+    -re "= \\(true, false, false, true, true, false\\)\[\r\n\]+$gdb_prompt $" {
+        pass $test
+    }
+    -re "= \\(warning: unable to get bounds of array.*\\)\[\r\n\]+$gdb_prompt $" {
+        # The compiler forgot to emit the packed array's ___XA type,
+        # preventing us from determining the what the array bounds
+        # are.  Observed with (FSF GNU Ada 4.5.3 20110124).
+        xfail $test
+    }
+}