From: Joel Brobecker <brobecker@gnat.com>
Date: Fri, 4 Jan 2008 20:47:16 +0000 (+0000)
Subject:         * gdb.ada/packed_array.exp: Add testing of references to
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c18d3d891b8cc1c6686a10b8686e982430492488;p=binutils-gdb.git

    * gdb.ada/packed_array.exp: Add testing of references to
        a packed array.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 8b33bd28c77..20a89de3dfd 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-04  Joel Brobecker  <brobecker@adacore.com>
+
+	* gdb.ada/packed_array.exp: Add testing of references to
+	a packed array.
+
 2008-01-04  Joel Brobecker  <brobecker@adacore.com>
 
 	* gdb.ada/type_coercion/ident.adb, gdb.ada/type_coercion/assign.adb:
diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp
index 071a4503de7..15989b84bb1 100644
--- a/gdb/testsuite/gdb.ada/packed_array.exp
+++ b/gdb/testsuite/gdb.ada/packed_array.exp
@@ -41,3 +41,13 @@ gdb_test "print var" \
          ".* = \\(4 => true, false, true, false, true\\)" \
          "print var"
 
+# Try printing the value and the type definition of a reference
+# to variable "Var".
+
+gdb_test "ptype &var" \
+         "type = access array \\(4 \\.\\. 8\\) of boolean <packed: 1-bit elements>" \
+         "ptype &var"
+
+gdb_test "print &var" \
+         "\\(access array \\(\\.\\.\\.\\) of boolean\\) \\(4 => true, false, true, false, true\\)" \
+         "print &var"