Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
tail_call.adb
blob: 4f109adffc583cda4ecb81ea89ec6a643f4f95e8 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O2 -fno-unit-at-a-time"
}
with
Tail_Call_P
;
use
Tail_Call_P
;
procedure
Tail_Call
is
begin
Insert
(
My_Array
,
0
,
0
);
end
;