For multipart tests, place the parts with no
[oota-llvm.git] / test / FrontendAda / switch.adb
1 -- RUN: %llvmgcc -c %s
2 function Switch (N : Integer) return Integer is
3 begin
4    case N is
5       when Integer'First .. -1 =>
6          return -1;
7       when 0 =>
8          return 0;
9       when others =>
10          return 1;
11    end case;
12 end;