diff options
author | Duncan Sands <baldrick@free.fr> | 2007-03-23 07:17:52 +0000 |
---|---|---|
committer | Duncan Sands <baldrick@free.fr> | 2007-03-23 07:17:52 +0000 |
commit | b819a2b5fef660298b4f38ce951dd7f679f66b4f (patch) | |
tree | 06900746fd4ee46d194647ba60caa03856f3cddb | |
parent | b8f1c1657f1b63f92957c5b1c5a4e26e4945c34d (diff) |
Test handling of switches with wide case ranges.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@35279 91177308-0d34-0410-b5e6-96231b3b80d8
-rw-r--r-- | test/AdaFrontend/switch.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/AdaFrontend/switch.adb b/test/AdaFrontend/switch.adb new file mode 100644 index 0000000000..0eb20b22cb --- /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; |