Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
fp2-dev
/
platform
/
external
/
llvm
/
bb80f93c4753ca80eb75bf83bb5f55b1ec885477
/
.
/
test
/
FrontendAda
/
switch.adb
blob: f214bca2ec420b3209c633aa51a8e653c172d279 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
c
%
s
function
Switch
(
N
:
Integer
)
return
Integer
is
begin
case
N
is
when
Integer
'First .. -1 =>
return -1;
when 0 =>
return 0;
when others =>
return 1;
end case;
end;