Index: gdb/testsuite/gdb.ada/tagged_not_init/pck.adb |
diff --git a/gdb/testsuite/gdb.ada/null_array/pck.adb b/gdb/testsuite/gdb.ada/tagged_not_init/pck.adb |
similarity index 93% |
copy from gdb/testsuite/gdb.ada/null_array/pck.adb |
copy to gdb/testsuite/gdb.ada/tagged_not_init/pck.adb |
index 8f99dc4bdc4dd6c141b8b2acbe0baa1bd861929a..5d6e76069357ff4a3c366c9a6339e306b3aa7b29 100644 |
--- a/gdb/testsuite/gdb.ada/null_array/pck.adb |
+++ b/gdb/testsuite/gdb.ada/tagged_not_init/pck.adb |
@@ -1,4 +1,4 @@ |
--- Copyright 2008-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 |
@@ -14,7 +14,6 @@ |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
package body Pck is |
- |
function Ident (I : Integer) return Integer is |
begin |
return I; |
@@ -24,5 +23,4 @@ package body Pck is |
begin |
null; |
end Do_Nothing; |
- |
end Pck; |