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

forked from OSchip/llvm-project
-- RUN: %llvmgcc -S %s
procedure VCE is
  S : String (1 .. 2);
  B : Character := 'B';
begin
  S := 'A' & B;
end;
Dragonegg cannot output bitcode, only human readable IR, so use -S rather than -c. llvm-svn: 120157 2010-11-26 05:21:59 +08:00			`-- RUN: %llvmgcc -S %s`
move ada tests llvm-svn: 35629 2007-04-04 05:46:22 +08:00			`procedure VCE is`
			`S : String (1 .. 2);`
			`B : Character := 'B';`
			`begin`
			`S := 'A' & B;`
			`end;`