From c2d3fccf65e1f765cef27015e13f1b82a395c51e Mon Sep 17 00:00:00 2001
From: Jerome Guitton <guitton@adacore.com>
Date: Thu, 29 Nov 2012 16:27:13 +0000
Subject: Update gdb.ada/variant_record_packed_array

gdb/testsuite/ChangeLog:

	* gdb.ada/variant_record_packed_array.exp: Test expressions of the
	form {VARIANT_TYPE}ADDRESS.
---
 gdb/testsuite/gdb.ada/variant_record_packed_array.exp | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'gdb/testsuite/gdb.ada')

diff --git a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
index 4df72ee..a3b065f 100644
--- a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
+++ b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
@@ -30,3 +30,10 @@ gdb_test "print my_buffer" \
     "= \\(size => 8, buffer => \\(1, 2, 3, 4, 5, 6, 7, 0\\), length => 8\\)" \
     "print empty"
 
+gdb_test "print my_buffer'Address" \
+    "= \\(system\\.address\\) $hex" \
+    "print address"
+
+gdb_test "print {foo.octal_buffer} ($)" \
+    "= \\(size => 8, buffer => \\(1, 2, 3, 4, 5, 6, 7, 0\\), length => 8\\)" \
+    "print adress content"
-- 
cgit v1.1