From 7cc5facfe5ede1c209e527067d0c1fc2475a142a Mon Sep 17 00:00:00 2001 From: Duncan Sands Date: Thu, 3 Jan 2008 11:53:52 +0000 Subject: [PATCH] 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 --- test/FrontendAda/Support/var_offset.ads | 9 +++++++++ test/FrontendAda/var_offset.adb | 7 +++++++ 2 files changed, 16 insertions(+) create mode 100644 test/FrontendAda/Support/var_offset.ads create mode 100644 test/FrontendAda/var_offset.adb 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;