GDB 7.6.50

gdb/testsuite/gdb.ada/mi_ex_cond/foo.adb

Index: gdb/testsuite/gdb.ada/mi_ex_cond/foo.adb
diff --git a/gdb/testsuite/gdb.ada/fun_in_declare/foo.adb b/gdb/testsuite/gdb.ada/mi_ex_cond/foo.adb
similarity index 78%
copy from gdb/testsuite/gdb.ada/fun_in_declare/foo.adb
copy to gdb/testsuite/gdb.ada/mi_ex_cond/foo.adb
index c7acd819e7716be4b17dcd952c3370a2990004ff..9db123329a4b4d30a40736bb24dda1d2386942fb 100644
--- a/gdb/testsuite/gdb.ada/fun_in_declare/foo.adb
+++ b/gdb/testsuite/gdb.ada/mi_ex_cond/foo.adb
@@ -1,4 +1,4 @@
---  Copyright 2008-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
@@ -17,12 +17,13 @@ with Pck; use Pck;
 
 procedure Foo is
 begin
-   declare
-      procedure Call_Me is
+   while I <= 3 loop
       begin
-         Do_Nothing; -- STOP
-      end Call_Me;
-   begin
-      Call_Me;
-   end;
+         raise Constraint_Error;
+      exception
+         when others =>
+            null;
+      end;
+      I := I + 1;
+   end loop;
 end Foo;