3 procedure Object_Overflow4 is
5 procedure Proc (x : Integer) is begin null; end;
7 type Index is new Long_Integer range 0 .. Long_Integer'Last;
9 type Arr is array(Index range <>) of Integer;
11 type Rec (Size: Index := 6) is record -- { dg-warning "Storage_Error" }
15 Obj : Rec; -- { dg-warning "Storage_Error" }