Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
stack_usage6.adb
blob: d02da6ced258fe2b7f7bc4bb2ba55a76f15b8270 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-Wstack-usage=512"
}
with
Stack_Usage6_Pkg
;
use
Stack_Usage6_Pkg
;
procedure
Stack_Usage6
(
I
:
Index_Type
)
is
R
:
constant
Rec
:=
A
(
I
);
begin
if
R
.
D
then
raise
Program_Error
;
end
if
;
end
;