Index: gdb/testsuite/gdb.ada/bp_range_type/foo.adb |
diff --git a/gdb/testsuite/gdb.ada/atomic_enum/foo.adb b/gdb/testsuite/gdb.ada/bp_range_type/foo.adb |
similarity index 74% |
copy from gdb/testsuite/gdb.ada/atomic_enum/foo.adb |
copy to gdb/testsuite/gdb.ada/bp_range_type/foo.adb |
index ae26ee0cc7df0c3fe5a057d64c122ed26230a139..53b9c4cf63881a2143bd3c5559ebbd660807e584 100644 |
--- a/gdb/testsuite/gdb.ada/atomic_enum/foo.adb |
+++ b/gdb/testsuite/gdb.ada/bp_range_type/foo.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 |
@@ -16,8 +16,11 @@ |
with Pck; use Pck; |
procedure Foo is |
+ type Small is range 0 .. 1000; |
+ Small_Value : Small := 10; |
begin |
- if Is_First then |
- Increment; |
- end if; |
+ for J in 1 .. 10 loop |
+ Small_Value := Small_Value + Small (J); |
+ Do_Nothing (Small_Value'Address); -- STOP |
+ end loop; |
end Foo; |