[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gnat.dg/object_overflow.adb

Index: gcc/gcc/testsuite/gnat.dg/object_overflow.adb
diff --git a/gcc/gcc/testsuite/gnat.dg/object_overflow.adb b/gcc/gcc/testsuite/gnat.dg/object_overflow.adb
index 820e93656e6a29c21f3cbead4335f1659bada2c5..597b7964585d4e4e0305c1d83aa63e2bf4d6f966 100644
--- a/gcc/gcc/testsuite/gnat.dg/object_overflow.adb
+++ b/gcc/gcc/testsuite/gnat.dg/object_overflow.adb
@@ -2,13 +2,12 @@
 
 procedure Object_Overflow is
 
-  type Rec is null record;
+  procedure Proc (x : Boolean) is begin null; end;
 
-  procedure Proc (x : Rec) is begin null; end;
-
-  type Arr is array(Long_Integer) of Rec;
+  type Arr is array(Long_Integer) of Boolean;
   Obj : Arr; -- { dg-warning "Storage_Error will be raised" }
 
 begin
+  Obj(1) := True;
   Proc (Obj(1));
 end;