* gdb.ada/packed_array.exp: Add testing of references to

        a packed array.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 8b33bd28c776566151e8e494623601c3a8f0f2cb..20a89de3dfdba06f5ada35db8fff25799cb0cde5 100644 (file)
--- 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 071a4503de75d96899f51933db07e5e2ef70cc2c..15989b84bb15f93add515c56509d0be81da8873c 100644 (file)
--- 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"