GDB 7.6.50

gdb/testsuite/gdb.ada/py_range/foo.adb

Index: gdb/testsuite/gdb.ada/py_range/foo.adb
diff --git a/gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb b/gdb/testsuite/gdb.ada/py_range/foo.adb
similarity index 64%
copy from gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb
copy to gdb/testsuite/gdb.ada/py_range/foo.adb
index a8a0b916ddad1ca6ece1ec4904237b22b2fe8d53..850b10f6f818acc0639362f89e69b55b15c580f0 100644
--- a/gdb/testsuite/gdb.ada/enum_idx_packed/foo.adb
+++ b/gdb/testsuite/gdb.ada/py_range/foo.adb
@@ -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
@@ -16,9 +16,17 @@
 with Pck; use Pck;
 
 procedure Foo is
-   Full : Full_Table := (False, True, False, True, False);
-begin
-   Do_Nothing (Full'Address);  -- STOP
-end Foo;
+   type Small is range -128 .. 127;
+   SR : Small := 48;
 
+   type Small_Integer is range -2 ** 31 .. 2 ** 31 - 1;
+   SI : Small_Integer := 740804;
 
+   type Integer4_T is range -2 ** 31 .. 2 ** 31 - 1;
+   for Integer4_T'Size use 32;
+   IR : Integer4_T := 974;
+begin
+   Do_Nothing (SR'Address);  -- STOP
+   Do_Nothing (SI'Address);
+   Do_Nothing (IR'Address);
+end Foo;