llvm-6502/test/FrontendAda/Support/element_copy.ads
Duncan Sands 411c285404 Check that records with a known constant size are not
copied field by LLVM field if the record has a variable
sized field in it.  The problem is that the LLVM field
will not completely cover the variable sized gcc field.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@65463 91177308-0d34-0410-b5e6-96231b3b80d8
2009-02-25 18:10:49 +00:00

9 lines
273 B
Ada

package Element_Copy is
type SmallInt is range 1 .. 4;
type SmallStr is array (SmallInt range <>) of Character;
type VariableSizedField (D : SmallInt := 2) is record
S : SmallStr (1 .. D) := "Hi";
end record;
function F return VariableSizedField;
end;