Index: gdb/testsuite/gdb.ada/bp_on_var/pck.ads |
diff --git a/gdb/testsuite/gdb.ada/atomic_enum/pck.ads b/gdb/testsuite/gdb.ada/bp_on_var/pck.ads |
similarity index 83% |
copy from gdb/testsuite/gdb.ada/atomic_enum/pck.ads |
copy to gdb/testsuite/gdb.ada/bp_on_var/pck.ads |
index b46b582c695a5733ea39b88620a5143dcacea605..af77fd575cbdce2ecb8bb792acc475c6f208bf44 100644 |
--- a/gdb/testsuite/gdb.ada/atomic_enum/pck.ads |
+++ b/gdb/testsuite/gdb.ada/bp_on_var/pck.ads |
@@ -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,7 @@ |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
package Pck is |
- |
- procedure Increment; |
- function Is_First return Boolean; |
- |
+ My_Global_Variable : Integer := 11; |
+ procedure Do_Something (I : in out Integer); |
end Pck; |
+ |