diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-01-04 20:47:16 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-01-04 20:47:16 +0000 |
| commit | c18d3d891b8cc1c6686a10b8686e982430492488 (patch) | |
| tree | 4b33fdd143b312c41e35b557a9eb1e60a80007df /gdb/testsuite/gdb.ada | |
| parent | 727e3d2e5ca581e75f2d8707c28c5cbd7ee34bb0 (diff) | |
| download | gdb-c18d3d891b8cc1c6686a10b8686e982430492488.zip gdb-c18d3d891b8cc1c6686a10b8686e982430492488.tar.gz gdb-c18d3d891b8cc1c6686a10b8686e982430492488.tar.bz2 | |
* gdb.ada/packed_array.exp: Add testing of references to
a packed array.
Diffstat (limited to 'gdb/testsuite/gdb.ada')
| -rw-r--r-- | gdb/testsuite/gdb.ada/packed_array.exp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp index 071a450..15989b8 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" |