Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt64_pkg.adb
blob: 5235e73b88af366c38f25e1e5ab85b7ef48b9f40 [
file
] [
log
] [
blame
]
package
body
Opt64_PKG
is
procedure
Encode
(
X
:
Integer
)
is
result
:
Hash
;
begin
case
X
is
when
1
=>
result
:=
"1"
;
when
2
=>
result
:=
"2"
;
when
3
=>
result
:=
"3"
;
when
others
=>
Result
:=
"?"
;
end
case
;
Last_Hash
:=
Result
;
end
;
end
;