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

[Duncan Sands]

Changes in directory llvm/test/AdaFrontend:

array_constructor.adb added (r1.1)
array_size.adb added (r1.1)
---
Log message:

Test support for arrays with non-zero first index.


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

 array_constructor.adb |    6 ++++++
 array_size.adb        |   10 ++++++++++
 2 files changed, 16 insertions(+)


Index: llvm/test/AdaFrontend/array_constructor.adb
diff -c /dev/null llvm/test/AdaFrontend/array_constructor.adb:1.1
*** /dev/null	Tue Mar 13 10:12:45 2007
--- llvm/test/AdaFrontend/array_constructor.adb	Tue Mar 13 10:12:35 2007
***************
*** 0 ****
--- 1,6 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Constructor is
+    A : array (Integer range <>) of Boolean := (True, False);
+ begin
+    null;
+ end;


Index: llvm/test/AdaFrontend/array_size.adb
diff -c /dev/null llvm/test/AdaFrontend/array_size.adb:1.1
*** /dev/null	Tue Mar 13 10:12:52 2007
--- llvm/test/AdaFrontend/array_size.adb	Tue Mar 13 10:12:35 2007
***************
*** 0 ****
--- 1,10 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Size is
+    subtype S is String (1 .. 2);
+    type R is record
+       A : S;
+    end record;
+    X : R;
+ begin
+    null;
+ end;