Index: gdb/testsuite/gdb.ada/bp_on_var/foo.adb |
diff --git a/gdb/testsuite/gdb.ada/fullname_bp/foo.adb b/gdb/testsuite/gdb.ada/bp_on_var/foo.adb |
similarity index 88% |
copy from gdb/testsuite/gdb.ada/fullname_bp/foo.adb |
copy to gdb/testsuite/gdb.ada/bp_on_var/foo.adb |
index 85f5af6484f5b7fa73b25ae4457baf6ccf061014..56b75fc61bd10bfe8d44ef74be4775cb612f9604 100644 |
--- a/gdb/testsuite/gdb.ada/fullname_bp/foo.adb |
+++ b/gdb/testsuite/gdb.ada/bp_on_var/foo.adb |
@@ -1,4 +1,4 @@ |
--- Copyright 2011-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,6 +16,5 @@ |
with Pck; use Pck; |
procedure Foo is |
begin |
- Hello; |
- There; |
+ Do_Something (My_Global_Variable); |
end Foo; |