GDB 7.6.50

gdb/testsuite/gdb.ada/bp_reset/foo.adb

Index: gdb/testsuite/gdb.ada/bp_reset/foo.adb
diff --git a/gdb/testsuite/gdb.ada/fun_in_declare/foo.adb b/gdb/testsuite/gdb.ada/bp_reset/foo.adb
similarity index 80%
copy from gdb/testsuite/gdb.ada/fun_in_declare/foo.adb
copy to gdb/testsuite/gdb.ada/bp_reset/foo.adb
index c7acd819e7716be4b17dcd952c3370a2990004ff..f79d17f86a39d42da12696b07c2ca6693aa2c796 100644
--- a/gdb/testsuite/gdb.ada/fun_in_declare/foo.adb
+++ b/gdb/testsuite/gdb.ada/bp_reset/foo.adb
@@ -1,4 +1,4 @@
---  Copyright 2008-2012 Free Software Foundation, Inc.
+--  Copyright 2012-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
@@ -14,15 +14,14 @@
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 with Pck; use Pck;
+with IO; use IO;
 
 procedure Foo is
-begin
-   declare
-      procedure Call_Me is
-      begin
-         Do_Nothing; -- STOP
-      end Call_Me;
+   procedure Nested_Sub is
    begin
-      Call_Me;
-   end;
+      Put_Line ("Some string");
+   end Nested_Sub;
+begin
+   Nested_Sub;
+   Do_Nothing;
 end Foo;