Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gnat.dg
/
object_overflow.adb
blob: 820e93656e6a29c21f3cbead4335f1659bada2c5 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
procedure
Object_Overflow
is
type
Rec
is
null
record
;
procedure
Proc
(
x
:
Rec
)
is
begin
null
;
end
;
type
Arr
is
array
(
Long_Integer
)
of
Rec
;
Obj
:
Arr
;
--
{
dg
-
warning
"Storage_Error will be raised"
}
begin
Proc
(
Obj
(
1
));
end
;