Index: gdb/testsuite/gdb.ada/set_pckd_arr_elt/foo.adb |
diff --git a/gdb/testsuite/gdb.ada/call_pn/foo.adb b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/foo.adb |
similarity index 85% |
copy from gdb/testsuite/gdb.ada/call_pn/foo.adb |
copy to gdb/testsuite/gdb.ada/set_pckd_arr_elt/foo.adb |
index e8e8e3df1bc1766d35afe26b596cadef37aa238f..7f4f45dc41af447528ec2e2e9015dd873bb060f1 100644 |
--- a/gdb/testsuite/gdb.ada/call_pn/foo.adb |
+++ b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/foo.adb |
@@ -1,4 +1,4 @@ |
--- Copyright 2010-2012 Free Software Foundation, Inc. |
+-- Copyright 2012 Free Software Foundation, Inc. |
-- |
-- This program is free software; you can redistribute it and/or modify |
-- it under the terms of the GNU General Public License as published by |
@@ -16,8 +16,7 @@ |
with Pck; use Pck; |
procedure Foo is |
- New_Node : Node_Id; |
+ SA : Simple_Array := (1, 2, 3, 4); |
begin |
- New_Node := Pn (1234); -- STOP |
+ Update_Small (SA (3)); -- STOP |
end Foo; |
- |