opnsense-src/test/FrontendAda/switch.adb
2009-06-02 17:52:33 +00:00

12 lines
237 B
Ada

-- 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;