| Index: gdb/testsuite/gdb.ada/set_pckd_arr_elt/foo.adb
|
| diff --git a/gdb/testsuite/gdb.ada/call_pn/foo.adb b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/foo.adb
|
| similarity index 85%
|
| copy from gdb/testsuite/gdb.ada/call_pn/foo.adb
|
| copy to gdb/testsuite/gdb.ada/set_pckd_arr_elt/foo.adb
|
| index e8e8e3df1bc1766d35afe26b596cadef37aa238f..7f4f45dc41af447528ec2e2e9015dd873bb060f1 100644
|
| --- a/gdb/testsuite/gdb.ada/call_pn/foo.adb
|
| +++ b/gdb/testsuite/gdb.ada/set_pckd_arr_elt/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;
|
| + SA : Simple_Array := (1, 2, 3, 4);
|
| begin
|
| - New_Node := Pn (1234); -- STOP
|
| + Update_Small (SA (3)); -- STOP
|
| end Foo;
|
| -
|
|
|