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

a packed array.
This commit is contained in:
Joel Brobecker 2008-01-04 20:47:16 +00:00
parent 727e3d2e5c
commit c18d3d891b
2 changed files with 15 additions and 0 deletions

View File

@ -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:

View File

@ -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"