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

[Duncan Sands]

Changes in directory llvm/test/AdaFrontend:

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

New directory for Ada testcases.  Test handling of NON_LVALUE_EXPR.


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

 non_lvalue.adb |    7 +++++++
 non_lvalue.ads |   11 +++++++++++
 2 files changed, 18 insertions(+)


Index: llvm/test/AdaFrontend/non_lvalue.adb
diff -c /dev/null llvm/test/AdaFrontend/non_lvalue.adb:1.1
*** /dev/null	Mon Mar  5 02:20:58 2007
--- llvm/test/AdaFrontend/non_lvalue.adb	Mon Mar  5 02:20:48 2007
***************
*** 0 ****
--- 1,7 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ package body Non_LValue is
+    function A (Y : U) return String is
+    begin
+       return Y.X.B;
+    end;
+ end;


Index: llvm/test/AdaFrontend/non_lvalue.ads
diff -c /dev/null llvm/test/AdaFrontend/non_lvalue.ads:1.1
*** /dev/null	Mon Mar  5 02:21:05 2007
--- llvm/test/AdaFrontend/non_lvalue.ads	Mon Mar  5 02:20:48 2007
***************
*** 0 ****
--- 1,11 ----
+ package Non_LValue is
+    type T (Length : Natural) is record
+       A : String (1 .. Length);
+       B : String (1 .. Length);
+    end record;
+    type T_Ptr is access all T;
+    type U is record
+       X : T_Ptr;
+    end record;
+    function A (Y : U) return String;
+ end;