From c18d3d891b8cc1c6686a10b8686e982430492488 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Fri, 4 Jan 2008 20:47:16 +0000 Subject: * 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(+) (limited to 'gdb') diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8b33bd2..20a89de 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 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: 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 --- 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" -- cgit v1.1