From c18d3d891b8cc1c6686a10b8686e982430492488 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Fri, 4 Jan 2008 20:47:16 +0000 Subject: [PATCH] * gdb.ada/packed_array.exp: Add testing of references to a packed array. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.ada/packed_array.exp | 10 ++++++++++ 2 files changed, 15 insertions(+) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8b33bd28c77..20a89de3dfd 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-01-04 Joel Brobecker + + * gdb.ada/packed_array.exp: Add testing of references to + a packed array. + 2008-01-04 Joel Brobecker * 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 071a4503de7..15989b84bb1 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 " \ + "ptype &var" + +gdb_test "print &var" \ + "\\(access array \\(\\.\\.\\.\\) of boolean\\) \\(4 => true, false, true, false, true\\)" \ + "print &var" -- 2.30.2