Test for handling of large bit offset from a

variable field offset.

llvm-svn: 45534

llvm/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;

llvm/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;