From: Duncan Sands <baldrick@free.fr>
Date: Thu, 22 Oct 2009 12:53:25 +0000 (+0000)
Subject: Check that accessing a struct field that occurs before the start
X-Git-Url: http://demsky.eecs.uci.edu/git/?a=commitdiff_plain;h=9772acdb4718191e696148306a9a5e4b81382403;p=oota-llvm.git

Check that accessing a struct field that occurs before the start
of the struct (!) works correctly.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@84853 91177308-0d34-0410-b5e6-96231b3b80d8
---

diff --git a/test/FrontendAda/negative_field_offset.adb b/test/FrontendAda/negative_field_offset.adb
index 02e3dac23af..f8b85108504 100644
--- a/test/FrontendAda/negative_field_offset.adb
+++ b/test/FrontendAda/negative_field_offset.adb
@@ -5,6 +5,12 @@ procedure Negative_Field_Offset (N : Integer) is
    --  Force use of a thin pointer.
    for String_Pointer'Size use System.Word_Size;
    P : String_Pointer;
+
+   procedure Q (P : String_Pointer) is
+   begin
+      P (1) := 'Z';
+   end;
 begin
    P := new String (1 .. N);
+   Q (P);
 end;