blob: 0eb20b22cb416416c6e27cde3aa63cab8a60af84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
-- 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;
|