[llvm-commits] [llvm] r84851 - /llvm/trunk/test/FrontendAda/negative_field_offset.adb

[Duncan Sands]

Author: baldrick
Date: Thu Oct 22 05:02:10 2009
New Revision: 84851

URL: http://llvm.org/viewvc/llvm-project?rev=84851&view=rev
Log:
Test handling of record fields with negative offsets.

Added:
    llvm/trunk/test/FrontendAda/negative_field_offset.adb

Added: llvm/trunk/test/FrontendAda/negative_field_offset.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/negative_field_offset.adb?rev=84851&view=auto

==============================================================================
--- llvm/trunk/test/FrontendAda/negative_field_offset.adb (added)
+++ llvm/trunk/test/FrontendAda/negative_field_offset.adb Thu Oct 22 05:02:10 2009
@@ -0,0 +1,10 @@
+-- RUN: %llvmgcc -c %s
+with System;
+procedure Negative_Field_Offset (N : Integer) is
+   type String_Pointer is access String;
+   --  Force use of a thin pointer.
+   for String_Pointer'Size use System.Word_Size;
+   P : String_Pointer;
+begin
+   P := new String (1 .. N);
+end;