diff options
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" |