llvm-mirror/test/FrontendAda/array_size.adb

mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-12-28 14:36:34 +00:00
-- RUN: %llvmgcc -c %s
procedure Array_Size is
   subtype S is String (1 .. 2);
   type R is record
      A : S;
   end record;
   X : R;
begin
   null;
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 13:41:53 +00:00			`-- RUN: %llvmgcc -c %s`
move ada tests llvm-svn: 35629 2007-04-03 21:46:22 +00:00			`procedure Array_Size is`
			`subtype S is String (1 .. 2);`
			`type R is record`
			`A : S;`
			`end record;`
			`X : R;`
			`begin`
			`null;`
			`end;`