diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/null_array/foo.adb')
| -rw-r--r-- | gdb/testsuite/gdb.ada/null_array/foo.adb | 7 |
1 files changed, 7 insertions, 0 deletions
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; |