[llvm-commits] [llvm] r45534 - in /llvm/trunk/test/FrontendAda: Support/var_offset.ads var_offset.adb

[Duncan Sands]

Author: baldrick
Date: Thu Jan  3 05:53:52 2008
New Revision: 45534

URL: http://llvm.org/viewvc/llvm-project?rev=45534&view=rev
Log:
Test for handling of large bit offset from a
variable field offset.

Added:
    llvm/trunk/test/FrontendAda/Support/var_offset.ads
    llvm/trunk/test/FrontendAda/var_offset.adb

Added: llvm/trunk/test/FrontendAda/Support/var_offset.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/Support/var_offset.ads?rev=45534&view=auto

==============================================================================
--- llvm/trunk/test/FrontendAda/Support/var_offset.ads (added)
+++ llvm/trunk/test/FrontendAda/Support/var_offset.ads Thu Jan  3 05:53:52 2008
@@ -0,0 +1,9 @@
+package Var_Offset is
+   pragma Elaborate_Body;
+   type T (L : Natural) is record
+      Var_Len   : String (1 .. L);
+      Space     : Integer;
+      Small     : Character;
+      Bad_Field : Character;
+   end record;
+end;

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

==============================================================================
--- llvm/trunk/test/FrontendAda/var_offset.adb (added)
+++ llvm/trunk/test/FrontendAda/var_offset.adb Thu Jan  3 05:53:52 2008
@@ -0,0 +1,7 @@
+-- RUN: %llvmgcc -c %s -I%p/Support
+package body Var_Offset is
+   function F (X : T) return Character is
+   begin
+      return X.Bad_Field;
+   end;
+end;