Dragonegg cannot output bitcode, only human readable IR, so use -S rather
[oota-llvm.git] / test / FrontendAda / switch.adb
1 -- RUN: %llvmgcc -S %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;