From 054fa8fddbebf3e040b7fe8d888e33e5095c2295 Mon Sep 17 00:00:00 2001
From: Duncan Sands <baldrick@free.fr>
Date: Tue, 27 Mar 2007 20:27:25 +0000
Subject: [PATCH] Test that a VIEW_CONVERT_EXPR used as an lvalue has the right
 type.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@35387 91177308-0d34-0410-b5e6-96231b3b80d8
---
 test/AdaFrontend/vce_lv.adb | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 test/AdaFrontend/vce_lv.adb

diff --git a/test/AdaFrontend/vce_lv.adb b/test/AdaFrontend/vce_lv.adb
new file mode 100644
index 00000000000..5242b157586
--- /dev/null
+++ b/test/AdaFrontend/vce_lv.adb
@@ -0,0 +1,9 @@
+-- RUN: %llvmgcc -c %s -o /dev/null
+procedure VCE_LV is
+   type P is access String ;
+   type T is new P (5 .. 7);
+   subtype U is String (5 .. 7);
+   X : T := new U'(others => 'A');
+begin
+   null;
+end;
-- 
2.34.1