Index: gdb/testsuite/gdb.ada/info_locals_renaming/foo.adb |
diff --git a/gdb/testsuite/gdb.ada/call_pn/foo.adb b/gdb/testsuite/gdb.ada/info_locals_renaming/foo.adb |
similarity index 85% |
copy from gdb/testsuite/gdb.ada/call_pn/foo.adb |
copy to gdb/testsuite/gdb.ada/info_locals_renaming/foo.adb |
index e8e8e3df1bc1766d35afe26b596cadef37aa238f..8f29709a210f435543ea1b609dfc4affeb3b4316 100644 |
--- a/gdb/testsuite/gdb.ada/call_pn/foo.adb |
+++ b/gdb/testsuite/gdb.ada/info_locals_renaming/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; |
+ GV : Integer renames Pck.Global_Variable; |
begin |
- New_Node := Pn (1234); -- STOP |
+ Increment (GV); -- STOP |
end Foo; |
- |