Index: gdb/testsuite/gdb.ada/mi_ex_cond/pck.ads |
diff --git a/gdb/testsuite/gdb.ada/fun_in_declare/pck.ads b/gdb/testsuite/gdb.ada/mi_ex_cond/pck.ads |
similarity index 89% |
copy from gdb/testsuite/gdb.ada/fun_in_declare/pck.ads |
copy to gdb/testsuite/gdb.ada/mi_ex_cond/pck.ads |
index e7948a1f2cf75f82530b84e0452e9bfdcafbd887..0ac131cd008efd6ccdac2b55422fc040faefeae6 100644 |
--- a/gdb/testsuite/gdb.ada/fun_in_declare/pck.ads |
+++ b/gdb/testsuite/gdb.ada/mi_ex_cond/pck.ads |
@@ -1,4 +1,4 @@ |
--- Copyright 2008-2012 Free Software Foundation, Inc. |
+-- Copyright 2013 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,5 +14,5 @@ |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
package Pck is |
- procedure Do_Nothing; |
+ I : Integer := 1; |
end Pck; |