Merge GDB 7.5.1

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

---  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
 --  the Free Software Foundation; either version 3 of the License, or
 --  (at your option) any later version.
 --
 --  This program is distributed in the hope that it will be useful,
 --  but WITHOUT ANY WARRANTY; without even the implied warranty of
 --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 --  GNU General Public License for more details.
 --
 --  You should have received a copy of the GNU General Public License
 --  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;
-