Test handling of switches with wide case ranges.
authorDuncan Sands <baldrick@free.fr>
Fri, 23 Mar 2007 07:17:52 +0000 (07:17 +0000)
committerDuncan Sands <baldrick@free.fr>
Fri, 23 Mar 2007 07:17:52 +0000 (07:17 +0000)
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@35279 91177308-0d34-0410-b5e6-96231b3b80d8

test/AdaFrontend/switch.adb [new file with mode: 0644]

diff --git a/test/AdaFrontend/switch.adb b/test/AdaFrontend/switch.adb
new file mode 100644 (file)
index 0000000..0eb20b2
--- /dev/null
@@ -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;