Index: gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb |
diff --git a/gdb/testsuite/gdb.ada/rec_return/foo.adb b/gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb |
similarity index 82% |
copy from gdb/testsuite/gdb.ada/rec_return/foo.adb |
copy to gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb |
index 3f24fc5b8be67f13da286fade56b5f226725b272..a8a0b916ddad1ca6ece1ec4904237b22b2fe8d53 100644 |
--- a/gdb/testsuite/gdb.ada/rec_return/foo.adb |
+++ b/gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb |
@@ -1,4 +1,4 @@ |
--- Copyright 2010-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 |
@@ -16,9 +16,9 @@ |
with Pck; use Pck; |
procedure Foo is |
- Q: Rec; |
+ Full : Full_Table := (False, True, False, True, False); |
begin |
- Q := Bar; -- STOP HERE |
- Do_Nothing (Q'Address); |
+ Do_Nothing (Full'Address); -- STOP |
end Foo; |
+ |