From: Duncan Sands <baldrick@free.fr>
Date: Thu, 3 Jan 2008 11:53:52 +0000 (+0000)
Subject: Test for handling of large bit offset from a
X-Git-Url: http://demsky.eecs.uci.edu/git/?a=commitdiff_plain;h=7cc5facfe5ede1c209e527067d0c1fc2475a142a;p=oota-llvm.git

Test for handling of large bit offset from a
variable field offset.


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

diff --git a/test/FrontendAda/Support/var_offset.ads b/test/FrontendAda/Support/var_offset.ads
new file mode 100644
index 00000000000..55d0eb21f7c
--- /dev/null
+++ b/test/FrontendAda/Support/var_offset.ads
@@ -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;
diff --git a/test/FrontendAda/var_offset.adb b/test/FrontendAda/var_offset.adb
new file mode 100644
index 00000000000..09f1c155a06
--- /dev/null
+++ b/test/FrontendAda/var_offset.adb
@@ -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;