3 with Interfaces
.C
; use Interfaces
.C
;
5 procedure Object_Overflow4
is
7 procedure Proc
(x
: Integer) is begin null; end;
9 type Index_T
is new ptrdiff_t
range 0 .. ptrdiff_t
'Last;
11 type Arr
is array(Index_T
range <>) of Integer;
13 type Rec
(Size
: Index_T
:= 6) is record -- { dg-warning "Storage_Error" }
17 Obj
: Rec
; -- { dg-warning "Storage_Error" }