Sign in
ara-mdk
/
platform
/
external
/
llvm
/
ae68a19ef9d16fc1d331b289b62fb7c759bfdb99
/
.
/
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;