gdb.ada/info_exc.exp,mi_exc_info.exp: handle runtimes with full debug info.

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.ada / arrayptr.exp

diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp
index bfa36fd780a2c939b6fc04ea82b0e4483556ddd0..8171db76f80b79742718955333450cf38581ebc3 100644 (file)
--- a/gdb/testsuite/gdb.ada/arrayptr.exp
+++ b/gdb/testsuite/gdb.ada/arrayptr.exp
@@ -45,3 +45,9 @@ gdb_test "print arr_ptr (3..4)" "= \\(3 => 23, 24\\)"
 
 gdb_test "ptype string_access" "= access array \\(<>\\) of character"
 
+gdb_test "print pa_ptr.all" \
+         " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)"
+
+gdb_test "print pa_ptr(3)" " = 30"
+
+gdb_test "print pa_ptr.all(3)" " = 30"