Index: gdb/testsuite/gdb.ada/tagged_not_init/foo.adb |
diff --git a/gdb/testsuite/gdb.ada/call_pn/foo.adb b/gdb/testsuite/gdb.ada/tagged_not_init/foo.adb |
similarity index 82% |
copy from gdb/testsuite/gdb.ada/call_pn/foo.adb |
copy to gdb/testsuite/gdb.ada/tagged_not_init/foo.adb |
index e8e8e3df1bc1766d35afe26b596cadef37aa238f..aa345a2076d7fe0041b402d256bb5e2d3751e0f0 100644 |
--- a/gdb/testsuite/gdb.ada/call_pn/foo.adb |
+++ b/gdb/testsuite/gdb.ada/tagged_not_init/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,9 @@ |
with Pck; use Pck; |
procedure Foo is |
- New_Node : Node_Id; |
+ I : Integer := Ident (10); -- STOP |
+ Obj : Base; |
begin |
- New_Node := Pn (1234); -- STOP |
+ Obj.X := I; |
+ Do_Nothing (Obj.X'Address); |
end Foo; |
- |