llvm-mirror/test/FrontendAda/var_offset.adb

mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-10-20 19:42:54 +02:00
-- RUN: %llvmgcc -S %s -I%p/Support
package body Var_Offset is
   function F (X : T) return Character is
   begin
      return X.Bad_Field;
   end;
end;
Dragonegg cannot output bitcode, only human readable IR, so use -S rather than -c. llvm-svn: 120157 2010-11-25 22:21:59 +01:00			`-- RUN: %llvmgcc -S %s -I%p/Support`
Test for handling of large bit offset from a variable field offset. llvm-svn: 45534 2008-01-03 12:53:52 +01:00			`package body Var_Offset is`
			`function F (X : T) return Character is`
			`begin`
			`return X.Bad_Field;`
			`end;`
			`end;`