Merge GDB 7.5.1

gdb/testsuite/gdb.ada/aliased_array/pck.adb

Index: gdb/testsuite/gdb.ada/aliased_array/pck.adb
diff --git a/gdb/testsuite/gdb.ada/rec_return/pck.adb b/gdb/testsuite/gdb.ada/aliased_array/pck.adb
similarity index 74%
copy from gdb/testsuite/gdb.ada/rec_return/pck.adb
copy to gdb/testsuite/gdb.ada/aliased_array/pck.adb
index ee0261f0e0d79e59569a84c4a7bf07a82f6ce12c..29de7435d0a4eee270d1668bc2182c5bf0837054 100644
--- a/gdb/testsuite/gdb.ada/rec_return/pck.adb
+++ b/gdb/testsuite/gdb.ada/aliased_array/pck.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
@@ -14,14 +14,17 @@
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 package body Pck is
-   function Bar return Rec is
+   function New_Bounded (Low, High : Integer) return Bounded is
+      Result : Bounded (Low .. High);
    begin
-      return (X => 42, S => "ABCDEFGH");
-   end Bar;
+      for J in Low .. High loop
+         Result (J) := J;
+      end loop;
+      return Result;
+   end New_Bounded;
 
    procedure Do_Nothing (A : System.Address) is
    begin
       null;
    end Do_Nothing;
 end Pck;
-