Index: gdb.ada/null_array/foo.adb
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/null_array/foo.adb,v
retrieving revision 1.1
diff -u -p -r1.1 foo.adb
--- gdb.ada/null_array/foo.adb	9 Jan 2008 17:05:26 -0000	1.1
+++ gdb.ada/null_array/foo.adb	16 May 2008 17:49:27 -0000
@@ -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;
Index: gdb.ada/null_array.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/null_array.exp,v
retrieving revision 1.1
diff -u -p -r1.1 null_array.exp
--- gdb.ada/null_array.exp	9 Jan 2008 17:05:26 -0000	1.1
+++ gdb.ada/null_array.exp	16 May 2008 17:48:03 -0000
@@ -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"