Ada testcase triggering this.
Index: llvm/test/AdaFrontend/non_lvalue.adb
===
--- /dev/null 1970-01-01 00:00:00.0 +
+++ llvm/test/AdaFrontend/non_lvalue.adb 2007-03-02 12:50:25.0 +0100
@@ -0,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
===
--- /dev/null 1970-01-01 00:00:00.0 +
+++ llvm/test/AdaFrontend/non_lvalue.ads 2007-03-02 12:50:25.0 +0100
@@ -0,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;
___
llvm-commits mailing list
llvm-commits@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits