llvm-mirror/test/FrontendAda/vce_lv.adb

-- RUN: %llvmgcc -c %s
procedure VCE_LV is
   type P is access String ;
   type T is new P (5 .. 7);
   subtype U is String (5 .. 7);
   X : T := new U'(others => 'A');
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 VCE_LV is`
			`type P is access String ;`
			`type T is new P (5 .. 7);`
			`subtype U is String (5 .. 7);`
			`X : T := new U'(others => 'A');`
			`begin`
			`null;`
			`end;`