Sign in
llvm
/
llvm-project
/
refs/heads/release/2.1.x
/
.
/
llvm
/
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;