diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/array_char_idx/pck.ads')
| -rw-r--r-- | gdb/testsuite/gdb.ada/array_char_idx/pck.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/array_char_idx/pck.ads b/gdb/testsuite/gdb.ada/array_char_idx/pck.ads index a26393a1f39..699fef9b6e6 100644 --- a/gdb/testsuite/gdb.ada/array_char_idx/pck.ads +++ b/gdb/testsuite/gdb.ada/array_char_idx/pck.ads @@ -19,5 +19,8 @@ package Pck is of Natural; Global_Char_Table : Char_Table := (others => 0); + type Table is array (Character) of Natural; + My_Table : Table := (others => 4874); + procedure Do_Nothing (A : System.Address); end Pck; |