Index: gdb/testsuite/gdb.ada/O2_float_param/callee.ads |
diff --git a/gdb/testsuite/gdb.ada/bp_on_var/foo.adb b/gdb/testsuite/gdb.ada/O2_float_param/callee.ads |
similarity index 82% |
copy from gdb/testsuite/gdb.ada/bp_on_var/foo.adb |
copy to gdb/testsuite/gdb.ada/O2_float_param/callee.ads |
index 56b75fc61bd10bfe8d44ef74be4775cb612f9604..92d97c3add38589caaada0b0a550c3ed8b9d0615 100644 |
--- a/gdb/testsuite/gdb.ada/bp_on_var/foo.adb |
+++ b/gdb/testsuite/gdb.ada/O2_float_param/callee.ads |
@@ -1,4 +1,4 @@ |
--- Copyright 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,8 +13,6 @@ |
-- 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; |
-procedure Foo is |
-begin |
- Do_Something (My_Global_Variable); |
-end Foo; |
+package Callee is |
+ procedure Increment (Val : in out Float; Msg : String); |
+end Callee; |