GDB 7.6.50

gdb/testsuite/gdb.ada/mi_exc_info/foo.adb

Index: gdb/testsuite/gdb.ada/mi_exc_info/foo.adb
diff --git a/gdb/testsuite/gdb.ada/fullname_bp/foo.adb b/gdb/testsuite/gdb.ada/mi_exc_info/foo.adb
similarity index 87%
copy from gdb/testsuite/gdb.ada/fullname_bp/foo.adb
copy to gdb/testsuite/gdb.ada/mi_exc_info/foo.adb
index 85f5af6484f5b7fa73b25ae4457baf6ccf061014..f00a09e3ce22b72fd2fa2d0c17bcb5d6a11b95c1 100644
--- a/gdb/testsuite/gdb.ada/fullname_bp/foo.adb
+++ b/gdb/testsuite/gdb.ada/mi_exc_info/foo.adb
@@ -1,4 +1,4 @@
---  Copyright 2011-2012 Free Software Foundation, Inc.
+--  Copyright 2013 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
@@ -13,9 +13,8 @@
 --  You should have received a copy of the GNU General Public License
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-with Pck; use Pck;
+with Const; use Const;
 procedure Foo is
 begin
-   Hello;
-   There;
+   raise Aint_Global_GDB_E;
 end Foo;