diff --git a/test/AdaFrontend/switch.adb b/test/AdaFrontend/switch.adb new file mode 100644 index 00000000000..0eb20b22cb4 --- /dev/null +++ b/test/AdaFrontend/switch.adb @@ -0,0 +1,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;