Test that the size of a view converted object is determined by the target

type, not the source type.

llvm-svn: 35106

1 files changed, 7 insertions, 0 deletions

diff --git a/llvm/test/AdaFrontend/vce.adb b/llvm/test/AdaFrontend/vce.adb
new file mode 100644
index 00000000000..3d783d04572
--- /dev/null
+++ b/llvm/test/AdaFrontend/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;