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

        a packed array.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 8b33bd2..20a89de 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 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:
        New files.
        * gdb.ada/type_coercion.exp: New testcase.

diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp
index 071a450..15989b8 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"