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

[Duncan Sands]

Changes in directory llvm/test/AdaFrontend:

var_size.adb added (r1.1)
var_size.ads added (r1.1)
---
Log message:

Ada testcase for structs with multiple variable sized fields.


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

 var_size.adb |    7 +++++++
 var_size.ads |    7 +++++++
 2 files changed, 14 insertions(+)


Index: llvm/test/AdaFrontend/var_size.adb
diff -c /dev/null llvm/test/AdaFrontend/var_size.adb:1.1
*** /dev/null	Tue Mar 20 04:54:12 2007
--- llvm/test/AdaFrontend/var_size.adb	Tue Mar 20 04:54:02 2007
***************
*** 0 ****
--- 1,7 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ package body Var_Size is
+    function A (X : T) return String is
+    begin
+       return X.A;
+    end;
+ end;


Index: llvm/test/AdaFrontend/var_size.ads
diff -c /dev/null llvm/test/AdaFrontend/var_size.ads:1.1
*** /dev/null	Tue Mar 20 04:54:19 2007
--- llvm/test/AdaFrontend/var_size.ads	Tue Mar 20 04:54:02 2007
***************
*** 0 ****
--- 1,7 ----
+ package Var_Size is
+    type T (Length : Natural) is record
+       A : String (1 .. Length);
+       B : String (1 .. Length);
+    end record;
+    function A (X : T) return String;
+ end;