| 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;
|
| -
|
|
|