From: Joel Brobecker <brobecker@gnat.com>
Date: Fri, 23 May 2008 18:15:23 +0000 (+0000)
Subject:         * gdb.ada/null_array/foo.adb: Add multi-dimensional array
X-Git-Tag: msnyder-reverse-20080609-branchpoint~129
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d9c36a9152b92667378c667ad2a1e9fef66c4c73;p=thirdparty%2Fbinutils-gdb.git

    * gdb.ada/null_array/foo.adb: Add multi-dimensional array
        of zero-size elements.
        * gdb.ada/null_array.exp: Test printing this new array.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e23dee9de3c..07df3990466 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2008-05-23  Joel Brobecker  <brobecker@adacore.com>
+
+	* gdb.ada/null_array/foo.adb: Add multi-dimensional array
+	of zero-size elements.
+	* gdb.ada/null_array.exp: Test printing this new array.
+
 2008-05-22  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
 	* gdb.base/longjmp.exp: Fix GDB_TEST_MULTIPLE missing GDB_PROMPT races.
diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp
index 36b9a294f73..7ab9b70efa0 100644
--- a/gdb/testsuite/gdb.ada/null_array.exp
+++ b/gdb/testsuite/gdb.ada/null_array.exp
@@ -37,9 +37,6 @@ gdb_load ${binfile}
 set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
 runto "foo.adb:$bp_location"
 
-# Test printing and type-printing of a tagged type that is not
-# class-wide.
-
 gdb_test "print my_table" \
          "\\(\\)" \
          "print my_table"
@@ -48,3 +45,6 @@ gdb_test "ptype my_table" \
          "type = array \\(10 \\.\\. 1\\) of integer" \
          "ptype my_table"
 
+gdb_test "print my_matrix" \
+         "\\(m => \\((\"\", ){9}\"\"\\)\\)" \
+         "print my_matrix"
diff --git a/gdb/testsuite/gdb.ada/null_array/foo.adb b/gdb/testsuite/gdb.ada/null_array/foo.adb
index 9fed4743530..07fec5a06f4 100644
--- a/gdb/testsuite/gdb.ada/null_array/foo.adb
+++ b/gdb/testsuite/gdb.ada/null_array/foo.adb
@@ -18,7 +18,14 @@ with Pck; use Pck;
 procedure Foo is
    type Table is array (Integer range <>) of Integer;
 
+   type Matrix is array (1 .. 10, 1 .. 0) of Character;
+   type Wrapper is record
+      M : Matrix;
+   end record;
+
    My_Table : Table (Ident (10) .. Ident (1));
+   My_Matrix : Wrapper := (M => (others => (others => 'a')));
 begin
    Do_Nothing (My_Table'Address);  -- START
+   Do_Nothing (My_Matrix'Address);
 end Foo;