Merge GDB 7.5.1

gdb/testsuite/gdb.ada/whatis_array_val/foo.adb

Index: gdb/testsuite/gdb.ada/whatis_array_val/foo.adb
diff --git a/gdb/testsuite/gdb.ada/char_param/foo.adb b/gdb/testsuite/gdb.ada/whatis_array_val/foo.adb
similarity index 74%
copy from gdb/testsuite/gdb.ada/char_param/foo.adb
copy to gdb/testsuite/gdb.ada/whatis_array_val/foo.adb
index 66a1a34016486455fdbab7f4a2303f53d664e30f..8fd6d76c8f56b3d0d4a442f6e4e85e22ec661d68 100644
--- a/gdb/testsuite/gdb.ada/char_param/foo.adb
+++ b/gdb/testsuite/gdb.ada/whatis_array_val/foo.adb
@@ -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
@@ -16,12 +16,10 @@
 with Pck; use Pck;
 
 procedure Foo is
-   First : Character := 'a';
+   type Color is (Black, Red, Green, Blue, White);
+   type Full_Table is array (Color) of Integer;
+   Full : Full_Table := (144, 233, 377, 610, 987);
 begin
-   Procedure_Result := ' ';
-   Same (First);  -- STOP
-   Next (First);
+   Do_Nothing (Full'Address); -- STOP
 end Foo;
 
-
-