diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/arrayptr/foo.adb')
| -rw-r--r-- | gdb/testsuite/gdb.ada/arrayptr/foo.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/arrayptr/foo.adb b/gdb/testsuite/gdb.ada/arrayptr/foo.adb index fe2a424..e8596c2 100644 --- a/gdb/testsuite/gdb.ada/arrayptr/foo.adb +++ b/gdb/testsuite/gdb.ada/arrayptr/foo.adb @@ -20,7 +20,14 @@ procedure Foo is String_P : String_Access := new String'("Hello"); Null_String : String_Access := null; + + -- Same situation, but constrained array. + type Little_Array is array (1 .. 10) of Integer; + type Little_Array_Ptr is access all Little_Array; + Arr_Ptr: Little_Array_Ptr := + new Little_Array'(21, 22, 23, 24, 25, 26, 27, 28, 29, 30); begin Do_Nothing (String_P'Address); -- STOP Do_Nothing (Null_String'Address); + Do_Nothing (Arr_Ptr'Address); end Foo; |