1
0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-24 06:30:19 +00:00
llvm-6502/test/FrontendAda/switch.adb
2010-11-25 21:21:59 +00:00

13 lines
237 B
Ada

-- RUN: %llvmgcc -S %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;