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

[Duncan Sands]

Changes in directory llvm/test/AdaFrontend:

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

Test handling of ARRAY_REF when the component type is of unknown size.


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

 array_ref.adb |   11 +++++++++++
 1 files changed, 11 insertions(+)


Index: llvm/test/AdaFrontend/array_ref.adb
diff -c /dev/null llvm/test/AdaFrontend/array_ref.adb:1.1
*** /dev/null	Mon Mar 19 14:56:28 2007
--- llvm/test/AdaFrontend/array_ref.adb	Mon Mar 19 14:56:18 2007
***************
*** 0 ****
--- 1,11 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Ref is
+    type A is array (Natural range <>, Natural range <>) of Boolean;
+    type A_Access is access A;
+    function Get (X : A_Access) return Boolean is
+    begin
+       return X (0, 0);
+    end;
+ begin
+    null;
+ end;