Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
tail_call_p.ads
blob: 1665bc30c5597ea626df29376fb12379aa87d357 [
file
] [
log
] [
blame
]
package
Tail_Call_P
is
type T
is
new
Natural
;
type
Index
is
(
First
,
Second
);
type A
is
array
(
Index
)
of T
;
My_Array
:
A
:=
(
0
,
0
);
procedure
Insert
(
Into
:
A
;
Element
:
T
;
Value
:
T
);
end
Tail_Call_P
;