llvm-project/llvm/test/FrontendAda/non_lvalue.adb

forked from OSchip/llvm-project
-- RUN: %llvmgcc -c %s -I%p/Support
package body Non_LValue is
   function A (Y : U) return String is
   begin
      return Y.X.B;
   end;
end;
For multipart tests, place the parts with no RUN line in Support. Give up on sending output to /dev/null - this cannot always be arranged. llvm-svn: 40436 2007-07-23 21:41:53 +08:00			`-- RUN: %llvmgcc -c %s -I%p/Support`
move ada tests llvm-svn: 35629 2007-04-04 05:46:22 +08:00			`package body Non_LValue is`
			`function A (Y : U) return String is`
			`begin`
			`return Y.X.B;`
			`end;`
			`end;`