Sign in
llvm
/
llvm.git
/
refs/heads/release_20
/
.
/
test
/
FrontendAda
/
switch.adb
blob: 0eb20b22cb416416c6e27cde3aa63cab8a60af84 [
file
] [
log
] [
blame
] [
edit
]
--
RUN
:
%
llvmgcc
-
c
%
s
-
o
/
dev
/
null
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;