Index: gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.adb |
diff --git a/gdb/testsuite/gdb.ada/fun_in_declare/pck.adb b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.adb |
similarity index 85% |
copy from gdb/testsuite/gdb.ada/fun_in_declare/pck.adb |
copy to gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.adb |
index 437ccf313f2619ae5931aef7919c93208c8f96a7..a2bec816a13f64d31c6d0ddacda691cd464e96e4 100644 |
--- a/gdb/testsuite/gdb.ada/fun_in_declare/pck.adb |
+++ b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/pck.adb |
@@ -1,4 +1,4 @@ |
--- Copyright 2008-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 |
@@ -14,8 +14,8 @@ |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
package body Pck is |
- procedure Do_Nothing is |
+ procedure Update_Small (S : in out Small) is |
begin |
null; |
- end Do_Nothing; |
+ end Update_Small; |
end Pck; |