llvm-mirror/test/FrontendAda/array_constructor.adb

mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-11-01 00:12:50 +01:00
-- RUN: %llvmgcc -S %s
procedure Array_Constructor is
   A : array (Integer range <>) of Boolean := (True, False);
begin
   null;
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`
move ada tests llvm-svn: 35629 2007-04-03 23:46:22 +02:00			`procedure Array_Constructor is`
			`A : array (Integer range <>) of Boolean := (True, False);`
			`begin`
			`null;`
			`end;`