[llvm-commits] CVS: llvm/test/AdaFrontend/vce_lv.adb

[Duncan Sands]

Changes in directory llvm/test/AdaFrontend:

vce_lv.adb added (r1.1)
---
Log message:

Test that a VIEW_CONVERT_EXPR used as an lvalue has the right type.


---
Diffs of the changes:  (+9 -0)

 vce_lv.adb |    9 +++++++++
 1 files changed, 9 insertions(+)


Index: llvm/test/AdaFrontend/vce_lv.adb
diff -c /dev/null llvm/test/AdaFrontend/vce_lv.adb:1.1
*** /dev/null	Tue Mar 27 15:27:35 2007
--- llvm/test/AdaFrontend/vce_lv.adb	Tue Mar 27 15:27:25 2007
***************
*** 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;