move ada tests

[oota-llvm.git] / test / FrontendAda / vce.adb

diff --git a/test/FrontendAda/vce.adb b/test/FrontendAda/vce.adb
new file mode 100644 (file)
index 0000000..3d783d0
--- /dev/null
+++ b/test/FrontendAda/vce.adb
@@ -0,0 +1,7 @@
+-- RUN: %llvmgcc -c %s -o /dev/null
+procedure VCE is
+  S : String (1 .. 2);
+  B : Character := 'B';
+begin
+  S := 'A' & B;
+end;