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

[Duncan Sands]

Changes in directory llvm/test/AdaFrontend:

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

Test that ARRAY_RANGE_REF returns an array not an element.


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

 array_range_ref.adb |    7 +++++++
 1 files changed, 7 insertions(+)


Index: llvm/test/AdaFrontend/array_range_ref.adb
diff -c /dev/null llvm/test/AdaFrontend/array_range_ref.adb:1.1
*** /dev/null	Tue Mar 20 04:50:52 2007
--- llvm/test/AdaFrontend/array_range_ref.adb	Tue Mar 20 04:50:42 2007
***************
*** 0 ****
--- 1,7 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Range_Ref is
+    A : String (1 .. 3);
+    B : String := A (A'RANGE)(1 .. 3);
+ begin
+    null;
+ end;