Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
prefix1.adb
blob: 70e11368e15226f968dc65a6223512a8c0b5bc3f [
file
] [
log
] [
blame
]
package
body prefix1
is
Counter
:
Integer
:=
2
;
Table
:
Arr
:=
(
2
,
4
,
8
,
16
,
32
,
64
,
128
,
256
,
512
,
1024
);
function
Func
(
Object
:
T
)
return
Arr
is
begin
return
Table
;
end
;
end
prefix1
;