Index: gdb/testsuite/gdb.ada/aliased_array/pck.ads |
diff --git a/gdb/testsuite/gdb.ada/fixed_cmp/pck.ads b/gdb/testsuite/gdb.ada/aliased_array/pck.ads |
similarity index 81% |
copy from gdb/testsuite/gdb.ada/fixed_cmp/pck.ads |
copy to gdb/testsuite/gdb.ada/aliased_array/pck.ads |
index 9bfe2ed30163cf43990abe878fc040db728f92cb..bfff52057bbf688a52aee9b96668660e3cd097b4 100644 |
--- a/gdb/testsuite/gdb.ada/fixed_cmp/pck.ads |
+++ b/gdb/testsuite/gdb.ada/aliased_array/pck.ads |
@@ -1,4 +1,4 @@ |
--- Copyright 2007-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 |
@@ -14,9 +14,8 @@ |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
with System; |
- |
package Pck is |
- |
+ type Bounded is array (Integer range <>) of Integer; |
+ function New_Bounded (Low, High : Integer) return Bounded; |
procedure Do_Nothing (A : System.Address); |
- |
end Pck; |