diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-05-23 18:15:23 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-05-23 18:15:23 +0000 |
| commit | d9c36a9152b92667378c667ad2a1e9fef66c4c73 (patch) | |
| tree | dddf2b40bfeada8b0b321d893580b5f1dfe4f24e /gdb/testsuite/gdb.ada | |
| parent | e936309cee103c8067460fc2ca051a9290af3564 (diff) | |
| download | gdb-d9c36a9152b92667378c667ad2a1e9fef66c4c73.zip gdb-d9c36a9152b92667378c667ad2a1e9fef66c4c73.tar.gz gdb-d9c36a9152b92667378c667ad2a1e9fef66c4c73.tar.bz2 | |
* gdb.ada/null_array/foo.adb: Add multi-dimensional array
of zero-size elements.
* gdb.ada/null_array.exp: Test printing this new array.
Diffstat (limited to 'gdb/testsuite/gdb.ada')
| -rw-r--r-- | gdb/testsuite/gdb.ada/null_array.exp | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/null_array/foo.adb | 7 |
2 files changed, 10 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp index 36b9a29..7ab9b70 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 9fed474..07fec5a 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; |